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I  INTRODUCTION 


The  Model  of  Airflow  and  Diffusion  In  Complex  Terrain  (MADICT)  addresses 
two  somewhat  contradictory  modeling  requirements.  First,  it  requires  rela¬ 
tively  modest  computational  resources  so  that  on-line  real-time  applications 
in  the  field  are  feasible.  Second,  MADICT  can  be  used  under  conditions  where 
airflow  changes  in  both  time  and  space.  Some  of  the  physical  processes  gov¬ 
erning  spatially  varying  winds  and  complex  topography  have  been  included,  as 
have  the  responses  of  smokes  and  gases  to  those  winds  and  other  meteorological 
conditions . 

In  order  to  achieve  the  two  goals  discussed  above,  it  has  been  necessary 
to  be  selective  about  the  processes  that  are  Included  in  the  model.  For 
example,  the  principle  of  conservation  of  mass  has  been  included  in  the  deter¬ 
mination  of  airflow  in  complex  terrain  because  that  seems  to  be  a  very  impor¬ 
tant  determinant  of  such  flow.  A  Lagrangian  formulation  of  the  model  allows 
us  to  treat  larger  scale  wind  variations,  but  not  those  whose  size  is  compar¬ 
able  to  that  of  the  smoke  plume  itself.  Again,  the  most  important  effects  are 
included  in  the  model,  but  other  processes  which  are  sometimes  important 
(e.g.,  the  effects  of  strong  vertical  wind  shear)  have  not  been  included. 

MADICT  draws  heavily  on  other  computer  programs  and  existing  modeling 
concepts.  For  example,  many  of  the  efficiency-improving  ideas  in  the  trans¬ 
port  and  diffusion  model  had  their  genesis  in  an  on-line  plume  dispersion 
model  for  a  power  plant  (Ludwig,  Gasiorek,  and  Ruff,  1977).  The  methods  for 
estimating  airflow  In  complex  terrain  are  derived  from  techniques  that  were 
used  to  estimate  wind  energy  potential  in  such  areas  (e.g.,  Bhumralkar,  et  al, 
1980;  Ludwig  and  Byrd,  1980).  The  separate  origins  of  different  parts  of  the 
model  have  resulted  in  a  program  with  reasonably  distinct  modules.  This 
should  make  it  easier  for  the  user  to  introduce  modifications  that  suit  his  or 
her  needs.  The  model  presented  here  is  written  in  FORTRAN77;  a  somewhat 
simpler  (and  less  structured)  version  has  also  been  written  in  BASIC  for  use 
on  microprocessor  based  systems  (Ludwig,  198^4). 

We  have  tried  to  make  the  model  efficient  by  reducing  the  amount  of 
computation  and  internal  memory  that  are  required.  Efficiency  has  been 
achieved  in  two  ways.  First,  the  computational  requirements  of  the  problem 
have  been  carefully  analyzed  to  determine  what  calculations  are  required.  For 
example,  no  attempt  is  made  to  calculate  the  contribution  from  some  part  of  a 

smoke  plume  that  is  far  from  a  receptor.  A  minimum  number  of  elements  is  used 

to  represent  a  smoke  plume,  and  some  calculations  can  be  made  ahead  of  time 

and  stored  for  later  use.  In  the  latter  category,  the  generation  of  wind 

fields  in  complex  terrain  is  done  in  two  steps;  the  part  of  a  computation  that 
requires  the  most  effort  is  done  once  with  the  results  stored  as  a  data  file 
which  is  used  as  input  for  much  simpler  arithmetic  calculations  during  the 
running  of  the  model. 

The  remainder  of  this  report  discusses  the  theory  of  the  model  and  the 
techniques  used  to  reduce  the  required  calculations.  The  structure  of  the 
model  is  also  discussed  so  that  users  can  modify  the  code  for  a  particular 


application.  Instructions  are  provided  on  model  usage,  and  the  application  of 
the  associated  preprocessing  programs.  These  instructions  include  descrip¬ 
tions  of  the  required  inputs  and  the  outputs.  The  chapter  providing  opera¬ 
tional  instructions  is  Intended  to  stand  alone,  although  the  user  should  read 
the  other  chapters  to  get  a  better  basis  for  interpreting  the  results. 

The  report  concludes  with  several  appendices  that  list  the  program  code 
for  both  the  model  and  the  preprocessers.  The  final  appendix  provides  two 
sample  problems. 


II  DESCRIPTION  OF  THE  MODEL  THEORY 


A.  Background 

The  model  has  two  major  parts;  (1)  a  module  that  describes  the  winds  (in 
three  dimensions)  throughout  the  modeling  domain,  and  how  those  winds  change 
with  time;  and  (2)  a  module  that  deals  with  the  transport  and  diffusion  of 
materials  emitted  into  the  atmosphere  that  accounts  for  how  the  winds  and  the 
prevailing  turbulence  affect  motion  and  dilution  of  the  smokes  or  other  emit¬ 
ted  materials.  The  meteorological  module  of  MADICT  emphasizes  the  description 
of  the  spatial  variability  of  the  winds.  Observed  winds  are  Interpolated  and 
adjusted  to  account  for  some  of  the  effects  of  complex  topography.  The  pro¬ 
cess  invokes  the  principle  of  mass  conservation  which  adjusts  the  winds  to 
achieve  nondivergence.  Temporal  variability  is  introduced  by  changing  wind 
fields  in  response  to  changed  wind  observations.  Real-time  calculations  are 
reduced  by  using  the  linear  properties  of  the  problem  to  form  any  arbitrary 
solution  by  superposition  of  stored,  standard  wind  field  solutions  that  have 
been  obtained  ahead  of  time  using  the  complete  computational  procedure. 
Interpolation  of  the  coefficients  used  to  form  the  linear  wind  field  combina¬ 
tions  allows  winds  to  be  interpolated  between  observation  times. 

The  model  only  accounts  for  vertical  variations  in  atmospheric  stability 
and  their  changes  with  time,  and  this  is  only  treated  in  a  very  rudimentary 
fashion.  Lateral  variability  in  the  diffusive  properties  of  the  atmosphere  is 
not  addressed.  In  principle,  it  would  not  be  particularly  difficult  to  deal 
with  spatially  varying  diffusion,  if  the  necessary  information  were  available. 

This  model  approximates  the  continuous  emissions  from  the  source  with  a 
series  of  discreet  "puffs"  that  move  with  the  wind  at  their  centers.  The 
puffs  grow  and  become  more  dilute  in  response  to  turbulent  diffusion.  Compu¬ 
tational  efficiency  is  achieved  by  minimizing  the  number  of  puffs  that  are 
used  through  the  merging  of  puffs  that  overlap  and  the  discarding  of  those 
outside  the  domain.  The  puff  modeling  approach  does  a  good  job  of  simulating 
plume  behavior  in  spatially  varying  wind  fields  that  do  not  change  signifi¬ 
cantly  over  distances  comparable  to  the  size  of  the  puffs.  This  is  an 
improvement  over  steady-state  modeling  approaches,  but  it  is  inaccurate  when 
there  is  strong  wind  shear  and  should  be  borne  in  mind  when  applying  the  model 
and  interpreting  the  results. 

The  model  is  intended  to  be  applied  to  nonbuoyant  smoke  sources,  so  it 
includes  no  plume  rise  module.  This  may  be  a  serious  omission  for  some  appli¬ 
cations  . 

MADICT  is  intended  for  real-time  use  in  the  field,  so  good  graphical 
displays  would  be  very  helpful  for  Interpreting  results.  However,  the  differ¬ 
ences  among  graphical  display  systems  are  so  great  that  no  special  displays 
have  been  developed  for  this  application.  The  original  microcomputer  version 
(Ludwig,  198^4)  included  a  very  simple,  character-based  display.  The  FORTRAN?? 
version  presented  here  uses  graphics  subroutines  available  from  the  National 
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Center  for  A'^niospheric  Research  (NCAR)  to  display  concentration  patterns. 
Other  graphics  subroutines  could  be  substituted. 


B.  Wind  Field  Calculations 

The  method  by  which  wind  fields  are  generated  has  evolved  from  the  work 
of  Sherman  (1978),  as  modified  by  Bhumralkar,  et  al  (1980).  The  suggestions 
made  by  Ludwig  and  Byrd  (1980)  have  been  implemented  in  order  to  reduce  on¬ 
line  calculations.  Inasmuch  as  the  full  model  is  not  used  in  MADICT,  it  is 
not  essential  that  any  particular  wind  model  be  used.  The  model  discussed 
here  has  been  described  by  Endlich  (1984),  and  portions  of  the  users'  instruc¬ 
tions  prepared  by  Endlich  and  Lee  (1983)  are  included  in  this  document. 
Whatever  wind  generation  model  is  used,  it  must  have  the  following  character¬ 
istics; 

1.  It  must  produce  three-dimensional,  nondivergent  wind  fields  that 
account  for  variations  in  the  underlying  topography. 

2.  The  output  winds  must  be  available  at  the  top  and  bottom  of  the 
modeled  layer  over  a  uniform  grid. 

3.  For  any  specified  boundary  layer  thickness,  the  output  wind  field 
must  be  linearly  related  to  the  Input  wind  observations. 

4.  The  locations  from  which  the  input  wind  observations  are  obtained 
should  remain  the  same  from  case  to  case. 

5.  The  heights  of  the  surface  and  the  top  of  the  modeled  layer  above 
the  surface  must  be  output  for  each  grid  point. 

In  addition  to  the  above  criteria,  it  is  also  desirable  to  have  histori¬ 
cal  wind  data  from  the  observation  sites  so  that  those  patterns  which  account 
for  the  largest  part  of  the  variance  in  the  data  can  be  identified.  As  will 
be  discussed  later,  this  allows  calculations  to  be  simplified  and  provides 
some  smoothing  of  smaller-scale  features  of  the  wind  fields.  This  latter 
approach  uses  the  u  and  v  wind  components  from  each  site  at  3-hour  intervals, 
along  with  the  geostrophic  wind  for  the  area.  A  computer  program  computes  the 
covariance  matrix  for  all  the  input  wind  components  (including  the  geostrophic 
wind)  and  outputs  the  eigenvectors  of  that  matrix.  For  n  reporting  stations 
and  one  geostrophic  wind  there  are  2(n+1)  eigenvectors  and  one  mean  vector 
(Ludwig  and  Byrd,  1980).  The  components  of  the  mean  vector  are  the  inputs 
which  would  be  used  for  the  model  if  each  observing  station  reported  its  long 
term  average  wind,  along  with  the  average  geostrophic  wind. 

The  first  eigenvector  corresponds  to  a  set  of  input  data  that  accounts 
for  the  largest  part  of  the  variance  in  the  input  data  set.  In  essence,  each 
eigenvector  can  be  considered  as  a  set  of  input  data  that  is  linearly  inde¬ 
pendent  of  all  the  other  eigenvector  input  data  sets.  If  the  appropriate 
conditions  are  met  (see  Ludwig  and  Byrd,  1980),  then  solutions  for  any  given 
set  of  Inputs  can  be  decomposed  to  a  linear  combination  of  the  eigenvectors 
and  the  mean.  Although,  any  linearly  Independent  set  of  inputs  can  be  used, 
the  eigenvectors  have  some  advantages  that  are  discussed  below. 


Figure  1  shows  the  observed  wind  components  as  a  sum  of  their  correspond¬ 
ing  means  (the  column  vector  at  the  right)  and  multiples  of  the  set  of  normal¬ 
ized  eigenvectors.  The  coefficients  of  the  linear  combination  are  symbolized 
with  the  constants,  a.|  through  ag.  These  coefficients  are  the  inner  products 
of  the  input  data  vector  (at  the  left  of  Figure  2)  and  each  of  the  Independent 
column  vectors  (the  eigenvectors  in  Figure  2).  These  inner  products  are 
calculated  in  the  subroutine  INWIND.,  using  the  following  equation; 
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where  aj  is  the  coefficient  for  the  jth  column,  and  U|^  and  are  the  U  and  V 
components  for  the  kth  station  in  the  input  data  set.  Averages  of  U  and  V  are 
indicated  by  overbars;  the  averages  are  calculated  for  the  same  data  set  from 
which  the  eigenvectors  were  derived.  The  terms  Uj|^  and  Vjj^  are  kth  pair  of 
wind  components  in  the  jth  column  vector,  and  N  is  the  number  of  observation 
sites  (including  a  geostrophic  wind)  from  which  data  are  available.  There  are 
two  2N  components  in  each  eigenvector. 

Appendix  A  provides  listings  of  programs  that  are  used  to  process  wind 
data.  The  program  XFORM  will  read  data  for  one  year  (at  3~hr  intervals)  in 
subroutine  SUB1 .  That  subroutine  also  uses  a  standard  International  Mathe¬ 
matical  and  Statistical  Library  (IMSL)  routine  (BECOVM)  to  calculate  the 
covariance  matrix  for  the  input  data.  Another  IMSL  routine  (EIGRS)  is  used  to 
determine  the  eigenvectors  of  that  covariance  matrix.  The  means  and  the 
eigenvectors  are  stored  for  use  with  the  full  wind  field  generation  model. 

The  theory  of  the  wind  field  model  has  been  described  by  Endlich  et  al 
(1982),  Endlich  and  Lee  (1983),  and  Endlich  (1984).  Those  references  should 
be  consulted  for  details.  A  brief  discussion  of  mass-consistent  wind  field 
models  follows. 

Most  mass-conserving  wind  interpolation  schemes,  begin  with  an  "initial 
guess"  that  is  adjusted  to  remove  divergence.  Winds  in  the  lowest  layer  are 
estimated  for  each  grid  point  by  taking  a  weighted  vector  average  of  the 
nearest  observed  winds.  The  weighting  is  inversely  proportional  to  the  dis¬ 
tance  between  observation  and  grid  point  (Sherman,  1978;  Endlich  et  al ,  1982). 
An  initial  guess  for  winds  at  higher  altitudes  is  more  difficult  to  obtain. 
Sherman  (1978)  used  the  shape  of  whatever  measured  wind  profile  was  available 
to  extrapolate  upward  throughout  the  region.  When  no  observed  profile  was 
available,  she  assumed  a  linear  variation  of  wind  with  height.  The  models  of 
Endlich  et  al  (1982)  and  Endlich  and  Lee  (1983)  assume  a  uniform  wind  at  the 
top  of  the  domain,  derived  from  the  surface  pressure  and  temperature  fields, 
using  the  geostrophic  and  thermal  wind  relationships  (Holmboe,  1948)  to  pro¬ 
vide  the  upper  level  wind  estimate.  Winds  at  intermediate  levels  are  derived 
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from  a  log-linear  Interpolation  between  the  surface  wind  estimate  and  that  for 
the  top  of  the  domain. 

Two  different  coordinate  systems  have  been  used  for  mass-consistent  wind 
models.  For  example,  Sherman  (1978)  uses  standard  rectangular  coordinates. 
While  Endlich  et  al  (1980)  use  a  curvilinear  coordinate  system  that  depends  on 
the  shape  of  the  upper  and  lower  boundaries  of  the  domain.  The  main  features 
of  these  two  modeling  approaches  are  discussed  below. 

Sherman  (1978)  sought  to  "minimize  the  variance  of  the  difference  between 
the  adjusted  values  and  the  original  values  subject  to  the  strong  constraint 
that  the  3”dimenslonal  analyzed  wind  field  is  nondiver gent,"  using  Sasaki’s 
(1958,  1970a, b)  analytical  approach  to  obtain  a  solution  that  minimizes  the 
following  function  (integrated  over  the  model  domain): 


S(u,v,w,X)  =  ///  ^a^(u  -  u^)^  +  a^(v  -  v^)^  +  a^(w  -  w^)^ 

+  X7*V  j  dxdydz 

where  and  a-  are  weighting  factors  that  are,  in  essence,  used  to  inhibit 
adjustments  or  the  vertical  velocity  relative  to  the  horizontal  components. 
Sherman  suggests  that  the  magnitude  of  should  be  about  100  times  more  than 
that  of  .  The  other  variables  in  Equation  (1)  are  a  Lagrange  multiplier, 
X(x,y,z),  the  observed  ^wind  components  with  subscript  "o",  and  the  adjusted 
components  of  the  wind  V. 

The  Euler-Lagrange  equations  whose  solution  will  minimize  Equation  (1) 

are: 


u  =  u  + 


1  dX 


(2) 


Sherman  solves  the  above  equations,  subject  to  the  boundary  conditions 


n^X6(Vj,)  -  0  (6) 

where  nj^  is  the  outward  positive  unit  normal  in  the  ith  coordinate  direction. 
Correspondingly,  6(Vj)  denotes  the  first  variation  of  the  1th  wind  component; 
values  of  i  -  1,2,3  correspond  to  the  x,y,z  directions.  The  boundary  condi¬ 
tion  can  be  satisfied  by  having  either  6(vp  or  X«0.  The  latter  allows 
adjustment  of  normal  components  at  the  boundary  because  the  corresponding 
partial  derivatives  of  X  will  not  necessarily  be  zero.  Sherman  (1978)  uses 
X-0  to  specify  boundary  conditions  along  the  x  and  y  boundaries.  At  the  upper 
and  lower  surfaces,  the  partial  derivative  of  X  in  the  normal  direction  is  set 
equal  to  zero,  as  are  the  initial  estimates  for  the  normal  component  of  air¬ 
flow  at  those  boundaries. 

Sherman  differentiates  Equations  (2)  through  (4)  and  substitutes  Equation 
(5)  to  get  the  following  equation  that  can  be  solved  for  X. 


where  is  the  initially  estimated  velocity. 

Sherman  (1978)  used  irregular  domain  boundaries  to  include  terrain  fea¬ 
tures.  This  requires  that  the  interior  points  adjacent  to  cells  containing 
terrain  obstacles  be  treated  specially,  making  it  more  difficult  to  base  a 
general  application  computer  program  on  the  original  Sherman  (1978)  approach. 
The  terrain-following  coordinate  system  described  in  the  next  section  was 
developed  in  part  to  overcome  this  difficulty. 

Bhumralkar  et  al  (1980)  changed  the  coordinate  system  used  by  Sherman 
(1978)  in  order  to  simplify  the  treatment  of  the  lower  boundary  in  their  mass- 
consistent  wind  interpolation  scheme.  That  work  was  modified  by  Endlich  et  al 
(1982)  to  give  the  version  discussed  here.  In  this  model,  the  vertical 
coordinate  (o)  is  related  to  the  height  (z)  in  the  rectangular  coordinate 
system  as  follows; 

z  -  ZQ(x,y) 

°  ~  Z(x,y)  -  Z^(x,y) 

where  Zq  Is  the  height  of  the  terrain  surface  and  Z  is  the  height  of  the  top 
of  the  domain.  It  is  presumed  that  the  top  of  the  domain  conforms  to  the 


streamlines  so  that  there  Is  no  upward  mass  flux  from  the  model  volume.  The 
vertical  velocity  (w)^ In  the  rectangular  coordinate  system  Is  related  to  that 
In  the  sigma  system  (o)  as  follows 


w  -  0  -  (o-1)  V*VZ^  ♦  aV*7Z  (9) 

Endlich  et  al  (1982)  replaced  the  wind  component  variables  with  the  following 


u»  -  u(Z  -  Z  ) 
o 

v»  -  v(Z  -  Z^)  (10) 

w»  -  o(Z  -  Z  ) 
o 

Then,  if  the  vertical  motions  caused  by  the  slope  of  the  sigma  surfaces  are 
small  compared  to  the  horizontal  motions,  the  continuity  equation  can  be 
written 


3u*  '  3v»  .  3w» 
3x  3y  3o 


(11) 


This  corresponds  to  Equation  (5),  given  above  for  Sherman's  (1978)  model. 
Equations  (2)  through  (4)  are  the  same  in  the  Endlich  et  al.  (1982)  model  as 
in  Sherman's,  except  that  u  is  replaced  by  u*,  u^  by  u*^,  and  so  forth. 

Rather  than  eliminating  u*,  v*,  and  w*  and  solving  for  X,  Endlich  et  al 
solve  directly  for  the  wind  components  using  the  following  equations. 


•  «  « 


w  •  « 


'  > 


These  equations  are  obtained  by  taking  appropriate  partial  derivatives  of  the 
basic  equations  and  summing  to  eliminate  v*,  w*,  and  X  to  obtain  Equation 
(12).  Similar  strategies  are  used  to  eliminate  the  appropriate  variables  and 
obtain  Equations  (13)  and  (14). 

Endllch  and  Lee  (1983)  assume  that  there  is  no  flow  through  the  sigma 
surfaces  (analogous  to  Sherman's  use  of  and  a-  weighting  factors  that  limit 
vertical  motion  to  very  small  values),  so  the  n.ow  in  and  out  of  each  volume 
element  takes  place  at  the  vertical  faces.  The  flux  through  each  face  is 
proportional  to  the  product  of  the  vertical  separation  Az  between  sigma  sur¬ 
faces  and  the  u  or  v  wind  component.  The  divergence  for  a  volume  element  is 
given  by; 


D 


(5u*  ^  5v* 
6x  Sy 


(15) 


In  the  model  used  here,  the  vertical  component  of  vorticlty  is  constrained  to 
remain  unchanged  while  the  wind  components  are  adjusted  to  achieve  nondiver¬ 
gence.  The  vertical  component  of  vorticlty  is  given  by 


6v*  5u* 

’  6x  ~  6y 


(16) 


Adjustment  processes  used  to  achieve  local  flow  nondivergence  through  the 
alterations  of  wind  components  have  been  described  by  several  authors  (e.g., 
Endllch,  1967}  Liu  and  Goodin,  1976;  Chen,  1980;  Goodin  et  al,  1980). 
Endlich's  procedure  begins  by  decreasing  (or  increasing)  the  wind  components 
on  the  Inflow  faces  and  increasing  (or  decreasing)  those  on  the  outflow  faces 
in  order  to  correct  for  a  net  convergence  (or  divergence).  The  wind  component 
changes  required  to  produce  nondivergence  in  a  volume  element  are  usually 
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quite  small.  Further  changes  are  made  to  neighboring  wind  components  to 
return  the  vorticity  to  the  value  originally  estimated  for  the  element.  The 
volume  elements  are  adjusted  iteratively  until  the  divergence  (either  positive 
or  negative)  is  reduced  to  very  small  magnitudes  while  retaining  the  original 
vorticity  fields.  Typically,  10  to  15  complete  iterations  are  required.  This 
technique  allows  the  model  given  in  the  appendix  to  make  the  flow  nondivergent 
in  each  layer  independently  of  the  flow  in  neighboring  layers,  which  requires 
less  computation  time  than  the  full  3"dimensional  relaxation  process.  The 
subroutine  BAL5  performs  the  iterative  adjustment  described  above. 

The  nondivergent  wind  model  is  run  for  the  mean  wind  components  at  each 
observation  site  (and  the  mean  geostrophic  components  aloft),  and  for  the 
input  data  sets  represented  by  each  of  the  eigenvectors.  The  resulting  winds 
at  the  top  and  bottom  of  the  layer  are  then  stored  along  with  the  correspond¬ 
ing  input  data  sets  (the  mean  winds,  the  eigenvector  wind  sets,  and  the  eleva¬ 
tions  of  the  top  and  bottom  of  the  boundary  layer)  for  use  by  the  transport 
and  diffusion  model.  It  should  be  noted  that  the  Endlich  and  Lee  model  uses 
cm  s"^  units  for  wind  outputs  and  cm  units  for  elevations.  The  diffusion 
model  converts  to  m  s"^  and  m  units.  If  other  wind  model  results  are  used  as 
inputs,  some  code  modification  may  be  required. 


C.  Transport  and  Diffusion  Model 

One  of  the  simplest  approaches  to  the  modeling  of  a  plume  is  to  represent 
that  plume  by  a  series  of  overlapping  "puffs."  This  approach  can  accommodate 
winds  that  vary  in  space  and  time,  but  it  can  also  have  large  computational 
and  computer  memory  requirements  if  it  is  applied  indiscriminately.  The 
implementation  of  this  concept  used  here  assumes  a  Gaussian  distribution  of 
concentrations  within  each  puff;  that  distribution  is  characterized  by  a 
standard  deviation  o  in  the  vertical  and  a  radially  symmetric  horizontal 
standard  deviation,  o  .  In  the  limit,  when  many  puffs  each  containing  a  small 
amount  of  material  at^e  used,  the  behavior  of  a  continuous  Gaussian  plume  can 
be  reproduced  quite  accurately.  The  number  of  puffs  required  to  simulate  the 
plume  depends  on  their  size;  larger  puffs  can  be  farther  apart.  Thus,  fewer 
puffs  will  be  needed  to  simulate  the  plume  accurately  as  the  puffs  grow. 


1 .  Reducing  the  Required  Number  of  Puffs 

Ludwig,  Gasiorek,  and  Ruff  (1977)  determined  that  the  minimum  spacing 
between  puffs  should  be  2a  or  less.  With  such  spacing,  the  concentrations 
derived  from  a  series  of  pui^fs  will  be  within  about  five  percent  of  those  from 
a  continuous  Gaussian  plume.  This  information  has  been  used  in  two  ways  to 
reduce  the  number  of  puffs  that  are  required.  First,  closely  spaced  puffs  are 
merged  periodically  so  that  one  puff  containing  all  of  the  material  in  the 
original  two  puffs  replaces  the  original  two.  The  other  parameters  (puff 
location,  o  and  o  ,  age,  and  so  forth)  are  averaged. 

y  z 

The  second  approach  to  reducing  the  required  number  of  puffs  is  based  on 
the  fact  that  although  it  is  common  to  discuss  "point"  sources,  sources 


- .  •  ^ 
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generally  have  finite  dimensions.  Even  if  they  did  not,  the  plume  would 
quickly  expand  so  that  it  is  reasonable  to  use  puffs  whose  initial  dimensions 
are  finite.  This  may  prevent  accurate  simulation  of  plume  behavior  in  the 
immediate  vicinity  of  the  source,  but  it  allows  puffs  to  be  generated  at  a 
rate  that  is  inversely  proportional  to  wind  speed.  A  newly  created  puff  moves 
away  from  the  source  until  it  reaches  a  distance  of  about  2  o  before  the  next 
puff  is  released.  If  puffs  were  released  at  a  constant  rate^  that  rate  would 
have  to  be  set  so  that  it  could  accommodate  the  highest  expected  wind  speed. 
This  would  lead  to  many  more  puffs  than  are  usually  necessary.  For  the  model 
described  here,  a  new  group  of  puffs  is  generated  every  ten  minutes.  The  rate 
at  which  they  are  generated  la  such  that  they  will  be  within  a  of  one  another 
after  about  5  minutes  travel  time.  ^ 

The  amount  of  material  within  each  puff  is  determined  by  two  factors,  the 
emission  rate  and  the  rate  at  which  puffs  are  generated.  Upon  creation,  each 
puff  is  assigned  an  amount  of  material  Q  equal  to  the  emission  rate  divided  by 
the  frequency  of  puff  release. 

Puffs  are  eliminated  from  consideration  once  they  pass  outside  a  square 
that  is  used  to  define  the  computational  domain.  If  the  source  is  located 
near  the  center  of  this  square,  puffs  can  travel  more  than  15  km  from  the 
source  before  they  are  eliminated.  The  computational  domain  can  be  expanded 
by  changing  the  grid  spacing  (set  at  6  km  In  the  current  code)  or  the  numbers 
of  grid  squares  (a  10  x  10  array  is  used).  However,  any  change  in  the  compu¬ 
tational  grid  will  require  a  corresponding  change  in  the  wind  field  inputs. 


2.  Puff  Advection 

The  location  of  each  puff  center  must  be  known  for  the  concentration 
calculations  to  be  made.  The  model  calculates  the  position  of  the  puff  cen¬ 
ters  at  2-minute  Intervals.  Temporal  changes  in  the  wind  field  are  allowed  to 
occur  every  ten  minutes.  During  a  ten-minute  interval  between  wind  changes, 
the  wind  field  is  assumed  to  remain  constant.  The  motion  of  a  puff  during  a 
2-minute  interval  is  determined  by  the  wind  in  the  grid  square  where  the  puff 
center  is  located  at  the  beginning  of  the  period.  The  puff  center  is  moved  in 
a  straight  line  parallel  to  that  wind  direction  for  a  distance  equal  to  a 
distance  that  the  wind  would  carry  it  in  2  minutes. 


The  Form  and  Growth  of  the  Puffs 


where 


C  -  concentration  at  ground  level  (g  m~^) 
Q  -  total  material  in  the  puff  (g) 


standard  deviations  of  the  Gaussian  distributions  in  the 
horizontal  and  vertical  directions,  respectively  (m) 

horizontal  (radial)  distance  from  the  puff  center  (m) 

height  of  the  puff  center  above  the  ground  (m). 


The  terms,  o  and  o  define  the  "size”  of  the  puff  and  depend  on  the 
distance  traveled^by  the^  puff  and  the  prevailing  atmospheric  stability.  If 
the  atmospheric  stability  has  remained  constant  throughout  its  travel,  then 
they  are  approximated  by  functions  of  the  following  form: 


t-V-VH 


0  »a  .X 
J 


where  a,  and  Y.  are  constants  depending  on  the  stability  class  j,  and  x  is  the 
distance  traveled  by  the  puff.  The  values  of  the  constants  used  by  the  model 
are  given  in  Table  1.  Modeling  the  effects  of  changes  in  atmospheric  stabil¬ 
ity  requires  some  modification  of  the  basic  equation  through  the  use  of  a 
virtual  travel  distance,  x^  (Ludwig,  1982).  This  is  the  distance  that  satis¬ 
fies  Equation  (18)  for  the  current  value  of  o.  If  there  has  been  no  change  in 
stability  during  the  growth  of  the  puff,  Xy  will  equal  x.  Rewritten,  Equation 
(18)  becomes 
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Equation  (19)  can  be  used  to  calculate  o  or  a  if  we  recognize  that  there 
will  be  discontinuous  changes  in  x  wl^enever^  the  atmospheric  stability 
changes.  During  periods  when  the  atmospheric  stability  remains  the  same,  the 
increase  of  x  is  the  same  as  the  increase  in  travel  distance,  i.e.,  for  a 
period  when  stability  remains  constant. 


WiM  ■  (4*  * 
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Table  1 


CONSTANTS  USED  TO  DETERMINE  o  AND  o  FROM  EQUATION  (18) 

y  z 


Atmospheric 

Stability 

Class*, J 


1  -  Extremely  unstable 

2  -  Moderately  unstable 

3  •  Slightly  unstable 


^  «  Neutral 

5  “  Slightly  stable 

6  -  Moderately  stable 


where  „)j[  and  (x  the  values  of  x  at  the  beginning  and  end  of 
the  perioc  and  Ax^  is  the  actual  distance  traveiled  during  the  period.  If  the 
stability  changes^at  the  beginning  of  the  period,  then 


(■■).  •  (y 


where  the  stability  during  the  new  period  is  in  class  j,  and  a  and  Y  are 
the  appropriate  constants  for  Equation  (19).  It  should  be  nOTed  th^  the 
virtual  travel  for  a  will  generally  be  different  from  that  for  o  .  The 
values  of  Ax  are  calculated  in  the  part  of  the  program  that  simulates  the 
advectlon  of  the  puffs.  Changes  in  atmospheric  stability  are  restricted  to 
occur  only  once  per  hour. 

Often  there  are  restrictions  to  the  vertical  expansion  of  the  puff. 
Elevated  temperature  inversions  can  cap  the  "mixing  layer"  and  effectively 
prevent  the  further  upward  expansion  of  a  puff.  Such  behavior  is  commonly 
treated  (e.g..  Turner,  1970)  by  assuming  that  puff  behavior  on  encountering 
the  top  of  the  mixing  layer  is  analogous  to  reflection.  Thus,  the  concentra¬ 
tion  at  a  monitor  la  equal  to  that  part  directly  reaching  the  ground,  as  in 
Equation  (17)  and  another  part  "reflected"  from  the  top  of  the  mixing  layer. 
The  reflected  contribution  is  simulated  by  invoking  a  "virtual"  source  above 
the  reflecting  surface.  If  the  height  above  ground  of  the  mixing  layer  is  H 


and  the  height  of  the  real  puff  is  z,  then  the  height,  z',  of  the  virtual  puff 
is  given  by 


z'  =  z+  2(H-z)  =  2H  -  z 


(22) 


Later,  when  the  calculation  of  concentration  at  a  receptor  is  discussed,  we 
will  return  to  the  virtual  puff. 

As  the  size  of  the  puff  increases,  reflections  from  the  ground  and  the 
top  of  the  mixing  layer  cause  the  distribution  of  concentration  in  the  verti¬ 
cal  to  become  nearly  uniform  between  these  two  surfaces.  In  such  a  case,  the 
concentration  is  proportional  to  the  total  material  and  inversely  proportional 
to  the  depth  of  the  mixed  layer.  Concentration  is  then  given  by 


C  = 


(23) 


As  long  as  the  mixing  height  remains  constant,  or  increases  with  time, 
application  of  the  equation  with  the  current  value  of  the  mixing  height  pre¬ 
sents  no  problem.  However,  if  mixing  height  is  decreasing  with  time,  the 
equation  would  Indicate  that  concentration  was  increasing  with  time.  This 
would  be  contrary  to  nature,  because  the  upward  or  downward  movement  of  the 
mixing  height  does  not  Involve  motions  of  a  physically  Impervious  surface; 
i.e.  it  does  not  act  like  a  piston  recompressing  concentrations.  The  model 
assumes  that  once  the  puff  has  expanded  to  the  point  where  it  is  affected  by 
the  top  of  the  mixing  layer,  subsequent  reductions  in  the  height  of  that  layer 
will  not  increase  concentrations.  Thus,  once  the  top  of  the  mixing  layer  is 
encountered,  the  height  through  which  the  puff  is  mixed  is  only  allowed  to 
increase  not  decrease.  The  model  keeps  track  of  the  greatest  mixing  height 
that  has  been  encountered  during  the  history  of  the  puff  and  uses  that  value 
to  estimate  reflection  effects. 


^4.  Concentration  Calculations  at  Receptors 

The  model  described  here  is  designed  to  calculate  concentrations  only  at 
receptors  near  the  surface.  The  user  must  select  the  receptor  spacing  and 
then  the  model  defines  a  square  grid  of  receptors  centered  at  the  source 
location.  The  receptor  array  is  a  21  x  21  grid.  In  order  to  keep  the  recep¬ 
tor  array  within  the  computational  domain,  grid  spacing  should  generally  be 
less  than  3  km.  For  smaller  grid  spacing,  puffs  may  pass  outside  the  receptor 
grid  without  being  discarded.  This  allows  for  recirculation  of  puffs  over 
receptors  as  long  as  the  puff  centers  did  not  pass  outside  the  60  km  square 
computational  domain. 


It  would  require  very  many  calculations  to  consider  the  contribution  of 
each  puff  to  each  receptor.  Therefore,  if  a  puff  center  is  more  than  3  o 
above  the  surface,  or  more  than  3  o  horizontally  from  a  receptor,  its  contri¬ 
bution  at  that  receptor  is  considered  to  be  nil.  In  order  to  accomplish  this, 
the  entire  list  of  puffs  is  scanned  when  the  concentrations  are  to  be  calcu¬ 
lated.  The  receptors  that  are  within  3  o  of  a  puff  center  are  determined  and 
the  contribution  to  the  concentration  a)[  these  receptors  is  calculated  and 
added  to  the  contributions  of  other  nearby  puffs.  Concentrations  are  calcu¬ 
lated  once  per  hour. 


Ill  STRUCTURE  OF  THE  COMPUTER  CODE 


A.  General  Organization 


Figure  2  is  a  flow  chart  showing  the  organization  of  the  MADICT  computer 
code.  As  the  figure  shows,  the  program  begins  by  calculating  some  of  the 
values  that  will  be  used  repeatedly.  The  locations  of  the  receptors  are 
defined  and  those  quantities  that  are  presumed  not  to  change  during  the  course 
of  a  run  are  input;  these  include  the  location  of  the  source  and  the  eigenvec¬ 
tors  appropriate  to  the  set  of  wind  stations  that  are  being  used.  Next,  the 
time  varying  meteorological  conditions  are  input.  These  are  changed  hourly; 
the  program  can  be  stopped  by  entering  a  negative  mixing  depth.  The  program 
interpolates  between  winds  at  the  beginning  and  end  of  the  hour  (other  mete¬ 
orological  factors  such  as  mixing  height  and  stability  are  assumed  to  remain 
constant  through  the  hour),  so  that  it  is  necessary  to  enter  two  sets  of  winds 
at  the  beginning  of  a  run.  For  later  hours,  the  winds  at  the  end  of  the 
upcoming  hour  are  entered  (the  winds  for  the  end  of  the  preceding  hour  are 
used  as  the  initial  winds  for  the  upcoming  hour).  During  the  course  of  the 
hour  the  winds  are  Interpolated  using  the  eigenvector  coefficients  for  the 
beginning  and  end  times;  winds  are  assumed  to  remain  constant  over  10-min 
Intervals. 

After  the  meteorological  data  have  been  input,  the  program  determines 
whether  or  not  the  appropriate  wind  field  solutions  (for  the  current  mixing 
depth)  have  been  used  during  the  preceding  hour  (if  it  is  not  the  first  hour). 
If  not,  the  appropriate  solutions  are  read  from  the  disk.  Interpolated  eigen¬ 
vector  coefficients  are  then  calculated,  and  the  fact  that  no  winds  have  been 
determined  for  any  grid  cell  is  indicated  by  making  the  vertical  component  in 
each  wind  cell  equal  to  the  x  coordinate  of  the  origin.  It  should  be  noted 
that  the  calculation  grid  is  different  from  the  receptor  grid.  The  receptor 
grid  is  centered  on  the  source  and  has  a  spacing  that  is  specified  as  an 
input.  The  calculatlonal  grid  is  a  geographical  grid  where  distances  are 
expressed  in  meters.  It  defines  the  computational  domain  which  is  30  km  on  a 
side  and  has  its  origin  at  (-15,000,  -15,000,  0).  Winds  are  determined  on  a 
10  X  10  grid  at  the  top  and  at  the  bottom  of  the  domain.  All  trajectories  are 
calculated  in  terms  of  this  computational  domain. 

Old  puffs  are  advected  every  10  minutes  (in  2-min  time  steps)  and  new 
puffs  are  generated  and  moved  to  their  appropriate  initial  positions  according 
to  the  wind  at  the  source.  During  the  first  of  these  10-minute  time  periods 
for  each  hour,  the  stability  is  checked  to  see  if  it  has  changed  from  the 
previous  hour  (or  if  it  is  the  first  hour  of  the  calculation),  in  which  case 
new  virtual  travel  distances  corresponding  to  the  current  puff  dimensions  are 
calculated.  At  the  end  of  each  10-minute  time  period,  the  list  of  puffs  is 
examined  and  those  which  are  overlapping  sufficiently  are  merged.  Those  which 
are  outside  the  computational  domain  are  discarded  from  further  consideration. 

The  receptor  concentrations  are  accumulated  after  the  six  10-mlnute  time 
periods  in  the  hour  have  been  cycled  through.  The  puffs  are  treated  sequen¬ 
tially,  first  determining  which  receptors  they  influence  and  then  adding  their 
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concentration  contribution  to  the  concentrations  of  earlier  puffs  at  those 
receptors.  After  all  puffs  have  been  treated,  the  results  are  output.  The 
program  includes  a  subroutine  to  be  used  for  calling  a  local  graphics  package. 
A  National  Center  for  Atmospheric  Research  (NCAR)  graphics  package  routine  is 
used  as  an  example.  The  concentrations  for  the  hour  at  each  receptor  are  also 
stored.  After  the  program  has  run  for  five  hours,  or  has  been  stopped  by  the 
input  of  a  negative  mixing  height,  all  non-zero  receptor  concentrations  for 
the  simulated  time  period  are  printed. 


B.  Major  Components 

This  section  provides  brief  descriptions  of  the  various  subroutines  and 
functions.  A  listing  of  the  FORTRAN??  code  is  given  in  Appendix  B. 


1.  Subroutine  ADVECT  (XX,  YY ,  ZZ,  TRAVEL) 

This  subroutine  advects  the  puff  from  the  initial  coordinates  (XX,  YY, 
ZZ)  to  determine  the  location  at  the  end  of  five  2-minute  steps.  This  new 
location  is  returned  through  the  same  arguments  (XX,  YY,  ZZ).  The  wind  at  the 
beginning  of  each  step  is  determined  by  a  call  to  the  subroutine  WIND.  The 
local  wind  component  (in  meters/ 1 0-mln)  are  multiplied  by  the  time  step  to 
give  the  new  coordinates.  Altitude  (ZZ)  is  not  allowed  to  be  negative  or 
above  the  top  of  the  domain.  Total  travel  distance  along  the  trajectory 
(travel)  is  also  calculated. 


2.  Subroutine  ADV  1ST  (LASTPF,  VS,  VDISRO,  VDISZO,  ISTAB) 

This  subroutine  generates  new  puffs  at  10-min  intervals.  It  first  deter¬ 
mines  the  wind  components  at  the  source,  and  the  number  of  puffs  to  be  genera¬ 
ted  is  calculated  so  that  their  spacing  will  be  approximately  equal  to  the 
value  of  0  (or  20  m,  whichever  is  greater)  after  3  minutes  of  travel.  The 
appropriate  initial  values  of  virtual  travel  (VDISRO,  VDISZO)  for  the  stabil¬ 
ity  class  (ISTAB),  the  total  material  in  the  puff  and  so  forth  are  assigned 
either  in  this  subroutine  or  through  a  call  to  a  subroutine  DEFINE.  The 
argument  LASTPF  is  the  number  of  puffs  at  the  end  of  the  10-minute  step. 


3.  Subroutine  ADV  2ND 

This  subroutine  uses  the  subroutine  ADVECT  to  move  the  puffs  that  exist 
at  the  beginning  of  the  10-min  time  period  to  their  new  locations.  The  puff 
parameters  are  then  updated  with  a  call  to  the  subroutine  DEFINE.  The  subrou¬ 
tine  ADVECT  determines  when  puffs  are  out  of  bounds  and  sets  a  logical  flag 
(LOUTFL)  equal  to  .TRUE.,  which  in  turn  causes  ADV  2ND  to  set  the  amount  of 
material  in  the  puff  to  zero.  This  causes  the  puff  to  be  purged  from  the 
list. 


4. 


Subroutine  BASICS  (VDISRO,  VDISZO.  IHOUR) 


This  subroutine  calculates  some  basic  parameters  such  as  the  Initial 
virtual  travel  distances  (VDISRO,  VDISZO)  for  the  six  stability  classes.  It 
also  calculates  and  stores  values  of  exponent  EXP  (-0.1*1)  in  the  array 
FEXP(I).  It  also  interactively  requests  information  for  defining  the  receptor 
grid,  the  characteristics  of  the  wind  inputs,  source  location  and  the  begin¬ 
ning  time.  It  calls  the  subroutine  EVCO  which  reads  the  empirical  orthogonal 
functions  from  the  appropriate  file. 


5. 


This  subroutine  accumulates  concentrations  for  a  given  puff/ 

receptor  pair.  The  puff  is  defined  by  I  and  the  receptor  by  II,  JJ.  The 

value  of  the  argument  QMULTF  takes  into  account  the  amount  of  material  in  the 

puff  and  the  horizontal  separation  between  the  puff  center  and  the  receptor. 

This  subroutine  uses  one  of  three  (determined  by  ITYPE)  models  of  the  vertical 
distribution — a  box  model  (ITYP  -  1),  or  a  model  where  the  vertical  expansion 
is  not  affected  by  the  elevated  mixing  layers  (ITYP  =  2),  or  finally  (ITYP  ■ 
3)  the  case  where  the  puff  is  "reflected"  from  the  top  of  the  mixing  layer. 
TYPMDL  is  used  to  redefine  virtual  travel  to  be  consistent  with  whatever 
restrictions  are  imposed  by  the  mixing  height  on  vertical  growth.  NHOUR 
defines  the  time  for  which  concentrations  are  being  calculated. 


6.  Subroutine  DEFIWE  (IPC/FF,  XX,  YY,  ZZ,  TRAVEL) 

This  subroutine  is  used  to  update  the  parameters  associated  with  each 
puff.  These  parameters  are  stored  in  two  arrays,  PUFINT  (IPUFF,  J)  and  PFFPAR 
(IPUFF,  K).  In  both  arrays,  the  puff  is  identified  by  the  first  index,  the 
second  index  (J)  for  PUFINT  refers  to  maximum  mixing  depth  (m)  encountered, 
the  three  spatial  coordinates  (m)  and  the  time  (min)  since  the  puff  was 
released  for  values  of  J  from  0  to  4,  respectively.  The  second  index  (K)  for 
PFFPAR  refers  to  the  amount  of  material  in  the  puff  (gm)  for  (K  »  0);  the 
indices  K  =  1,2  refer  to  the  virtual  travel  distance  for  o  and  a  (m) , 
respectively.  ^  ^ 


7.  Subroutine  DOTINT  (ITIME) 

This  subroutine  interpolates  the  inner  products  at  the  beginning  and  end 
of  the  hour  so  that  they  are  appropriate  to  the  time  step,  ITIME.  The  current 
interpolated  coefficients  of  the  eigenvectors  are  stored  in  the  array  DOTP. 


8.  Subroutine  EVCO 

This  subroutine  reads  the  eigenvectors  and  the  mean  winds.  (Units  are 
corrected  to  m  s”’  from  the  cm  s”’  that  are  output  by  the  wind  field 
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Subroutine  CALCON  (ITYPE,  ISTAB,  ZZ,  TYPMDL.  QMULTF,  II.  JJ,  I, 
SIGZ,  "  NHOUR i 


preprocessor  programs;  use  of  other  preprocessors  may  require  some  modifica¬ 
tion  of  the  MADICT  code).  The  files  created  by  the  Endlich  wind  programs 
identify  the  means  as  the  zeroth  eigenvector;  furthermore,  the  first  eigenvec¬ 
tor  is  the  one  which  explains  the  least  variance ,  the  second  explains  the 
second  least  variance  and  so  forth.  This  subroutine  stores  the  means 
separately  as  UM  and  VM.  This  subroutine  also  reverses  the  indexing  on  the 
eigenvectors  so  that  the  lowest  index  refers  to  the  eigenvector  that  accounts 
for  the  largest  amount  of  the  variance,  the  second  for  the  second  most  vari¬ 
ance  . 


9.  Subroutine  FILEID  (IREAD  DEPTH) 

This  subroutine  reads  the  first  record  from  each  of  the  wind  field  source 
files.  The  first  record  in  each  of  these  files  includes  information  about  the 
average  mixing  depth  that  was  assumed  in  calculating  the  solutions.  The 
subroutine  identifies  the  solutions  with  the  assumed  mixing  depth  that  is  the 
closest  to  the  currently  observed  mixing  depth  (DEPTH).  The  appropriate 
logical  unit  (IREAD)  is  returned  so  that  the  correct  wind  field  solutions  are 
read  and  stored.  The  PARAMETER  MFILES  in  this  subroutine  must  be  set  to  the 
number  of  mixing  depth  categories  for  which  solutions  have  been  stored. 


10.  Subroutine  GETWND  (IX,  lY,  IZ) 


The  subroutine  calculates  the  wind  in  the  cell  IX,IY,IZ  from  the  stored 
solutions.  It  does  this  by  summing  the  u,  v,  w  components  for  each  eigenvec¬ 
tor  solution,  weighted  according  to  the  inner  product  of  the  observations  and 
that  particular  eigenvector.  Winds  are  calculated  at  the  top  and  the  bottom 
of  the  layer  for  the  solutions  that  have  been  stored  for  those  two  elevations. 
Winds  at  intermediate  altitudes  are  obtained  by  log-linear  interpolation  to 
the  centers  of  the  intermediate  grid  cells.  The  units  of  the  stored  winds  are 
meters  per  10-minute  interval.  The  subroutine  assumes  that  the  input  wind 
field  solutions  are  in  cm  s  units,  as  provided  by  the  wind  field  preproces¬ 
sors  discussed  in  this  report.  For  wind  field  solutions  from  other  sources, 
this  subroutine  may  require  modification. 


1 1 .  Subroutine  GRAFF  (I,DBUG) 

This  subroutine  was  included  to  provide  a  mechanism  for  users  to  intro¬ 
duce  graphical  presentations.  It  uses  an  NCAR  graphics  routine. 


12.  Subroutine  GRIDXY  (DBUG) 

This  subroutine  calculates  the  x-  and  y-coordi nates  of  the  grid  points  in 
the  receptor  grid.  The  receptor  grid  is  centered  on  the  source  and  the 
coordinates  are  given  in  terms  of  the  coordinate  system  used  to  describe  the 
modeling  domain. 
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13.  Subroutine  INDXY  (XX.  YY,  LX.  LY,  LOUTFL) 

This  subroutine  returns  the  indices  (LX  and  LY)  of  the  grid  cell  in  which 
the  coordinates  XX  and  YY  fall.  It  also  sets  the  logical  variable  LOUTFL  to 
.TRUE,  when  the  coordinates  are  outside  the  domain;  otherwise  it  is  .FALSE.. 


1  Subroutine  INFLU  (GSIGY,  NHOUR,  ISTAB) 

The  purpose  of  the  subroutine  is  to  Identify  those  receptors  which  are 
significantly  Influenced  by  each  puff  (i.e.  those  receptors  within  3  o  ).  It 
uses  the  subroutine  CALCON  to  increment  the  concentrations  at  those  receptors 
that  are  influenced.  The  subroutine  also  determines  whether  or  not  concentra¬ 
tions  are  uniformly  distributed  in  the  vertical  (box  model),  reflected  from 
the  upper  domain  boundary  (the  reflected  model)  or  still  freely  expanding  in 
the  vertical  (the  unreflected  model).  The  effects  of  the  amount  of  material 
in  the  puff  and  the  concentration  distribution  in  the  vertical  are  calculated 
before  the  subroutine  CALCON  is  called. 


15.  Subroutine  INWIND  (I,  IHOUR) 

This  subroutine  is  used  to  Input  the  observed  winds,  from  which  the  wind 
components  are  calculated.  After  the  wind  components  have  been  calculated, 
the  mean  components  are  subtracted  and  the  inner  products,  DOTX  (I,  J),  are 
calculated  for  the  beginning  (I-O)  and  end  (1-1)  of  the  hour  for  each  eigen¬ 
vector  (indicated  by  the  second  index). 


16.  Subroutine  MET  IN  (QUIT,  ISTAB,  IHOUR,  ALPHAY,  SEPMAX) 

This  subroutine  reads  the  basic  meteorological  information  for  the  upcom¬ 
ing  hour.  The  logical  flag  QUIT  is  set  to  .TRUE,  if  a  negative  mixing  depth 
is  input;  this  will  cause  the  program  to  stop.  Source  strength  (QSOURC)  is 
input  in  gs”  .  This  subroutine  calls  the  subroutine  INWIND  to  get  the 
observed  wind  inputs. 


17.  Subroutine  MRG  PRO  (LASTPF,  SEPMAX) 

This  subroutine  scans  the  list  of  puffs  and  determines  those  which  are 
close  enough  together  to  be  merged.  Average  parameter  values  are  calculated 
for  each  pair  to  be  merged,  and  those  values  are  assigned  to  one  of  the  puffs 
along  with  the  total  material  from  the  two  puffs.  The  other  puff  is  assigned 
zero  material.  After  the  list  has  been  scanned,  those  puffs  with  zero 
material  are  discarded  and  the  remaining  puffs  are  renumbered  accordingly. 
Those  puffs  which  have  passed  outside  the  modeling  domain  are  also  removed 
because  such  puffs  have  their  content  set  to  zero  in  the  subroutine  ADV  2ND. 
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Function  NEXTHR  (IHOUR) 


This  simple  function  increments  the  hour  and  ensures  that  the  time 
remains  between  0000  and  2300. 


19.  Subroutine  OUTNOW  (NHOUR,  ISTAB) 

This  subroutine  prints  the  calculated  concentrations  for  all  the  hours 
considered  and  the  moat  recent  meteorological  parameters  when  all  the  calcula¬ 
tions  are  completed.  Only  non-zero  concentrations  are  printed. 


20.  Subroutine  RELHT  (RHS,  XRHS) 

The  array  of  grid  cell  terrain  elevations  and  mixing  heights  XRHS  is 
scanned  to  determine  the  lowest  point  at  the  surface.  All  other  elevations 
(at  the  surface  and  the  top  of  the  domain)  are  transformed  so  that  they  are 
measured  relative  to  the  low  point.  The  transformed  heights  are  returned  in 
the  array  RHS. 


21 .  Subroutine  VIRTVL,  (ISTAB.  SL) 

This  subroutine  is  called  whenever  there  is  a  change  of  stability  class 
from  one  hour  to  the  next.  First,  the  current  values  of  o  and  a  are 
determined  from  the  virtual  travel  distances  and  the  stability  cla^s  (SL)^for 
the  preceding  hour.  The  virtual  travel  distances  are  recalculated  for  the  new 
stability  class  (ISTAB). 


22.  Subroutine  WIND  (KEY,  XX,  YY,  ZZ,  U1 ,  U2.  U3) 

This  subroutine  is  used  to  determine  if  a  puff  is  outside  the  modeling 
domain.  If  so,  the  flag  LOUTFL  is  set  to  .TRUE,  so  that  the  puff  will  be 
discarded  later.  If  a  wind  has  not  been  calculated  for  the  cell,  the  subrou¬ 
tine  GETWND  is  called.  Otherwise,  the  u,v,  and  w  components  (U1,U2,U3)  that 
have  previously  been  stored  in  the  array  WNDUVW(IX,IY,IZ,I)  are  returned;  the 
index  I  denotes  the  component  (1=0  for  u  to  1=2  for  w). 


23.  Function  WINDIR  (WD) 

This  function  converts  the  wind  direction  in  meteorological  convention 
(l.e.  the  direction  from  which  the  wind  blows — measured  clockwise  from  north) 
to  mathematical  vector  convention  (i.e.  the  direction  toward  which  a  vector 
points,  measured  counterclockwise  from  east).  The  wind  direction  is  also 
converted  from  degrees  to  radians. 


2^.  Subroutine  WINDDO 


This  subroutine  reads  the  appropriate  precalculated  windfields  from  the 
logical  unit  IREAD.  The  appropriate  logical  unit  is  determined  by  a  call  to 
subroutine  FILEID.  The  precalculated  solutions  are  stored  in  the  array  PRECAL 
(IX, lY, LEVEL, ICOMP, IGEN) .  The  first  two  indices  refer  to  the  grid  cells  In 
the  X  and  y  directions  numbered  from  0  to  9.  The  index,  LEVEL,  differentiates 
the  top  and  the  bottom  of  the  domain;  0  denotes  the  bottom  and  1  the  top. 
ICOMPS  designates  the  wind  components  (0-u,  1»v,  2=w).  The  final  argument, 
IGEN,  Identifies  the  solution,  with  a  value  of  0  for  the  mean  wind  solution,  1 
for  the  eigenvector  explaining  the  most  variance  and  so  forth.  This  subrou¬ 
tine  stores  the  ID  of  the  logical  unit  from  which  solutions  were  last  read 
(LAST)  so  that  a  new  set  of  solutions  will  be  read  only  when  there  has  been  a 
significant  change  in  the  mixing  depth. 


25.  Subroutine  WINDBAR  (WNDUVW,  YORIGCtfl) 

This  subroutine  sets  the  w  components  stored  at  the  beginning  of  a 
10-minute  period  in  the  array  WNDUVW  equal  to  the  y  coordinate  of  the  grid 
origin.  As  noted  before,  this  allows  identification  of  grid  cells  for  which 
winds  have  not  yet  been  calculated. 


IV  USE  OF  THE  MODEL 


As  noted  earlier,  the  preprocessing  of  the  data  makes  use  of  programs 
that  have  been  developed  and  descri..ed  in  detail  by  Endlich  and  Lee  (1983)  and 
Endlich  et  al  (1980).  Appendix  A  provides  a  listing  of  preprocessing  pro¬ 
grams.  The  remainder  of  this  section  provides  a  brief  overview  of  how  those 
programs  are  to  be  used.  If  more  details  are  needed,  the  original  references 
should  be  consulted.  Briefly,  the  procedure  requires  that  an  extended  period 
of  wind  data  be  available  (up  to  one  year)  so  that  those  data  can  be  used  to 
derive  the  necessary  eigenvectors  of  their  covariance  matrix.  These  results 
are  then  input  with  terrain  Information  into  the  program  which  calculates 
mass-consistent  flow  patterns.  These  mass-consistent  flow  patterns  will  be 
developed  for  several  mixing  height  categories.  Results  of  the  computations 
are  then  stored  in  the  form  that  can  be  easily  used  by  the  diffusion  model.  A 
block  diagram  showing  the  steps  required  to  derive  wind  statistics  and  the 
computer  programs  used  is  given  in  Figure  3. 


2.  Programs  in  the  Preprocessing  Package 


(a)  Program  TERRAIN 


This  program  reads  digital  terrain  data  obtained  on  magnetic  tape  (nine 
track,  1600  bpi)  from  the  National  Cartographic  Information  Center,  Reston, 
Virginia  22092  (telephone  703/860-60^5).  Each  tape  contains  data  for  up  to 
seven  1“  lat.-long.  regions  These  data  are  read  from  logical  unit  1.  The 
program  selects  part  of  the  original  dense  data  and  averages  it  to  produce 
smoothed  height  values  for  small  areas  having  sides  of  0.01®  in  lat.  and 
long.  The  output  is  an  array  HT(101,101)  of  smoothed  height  values  with  point 
(1,1)  at  the  southwest  corner.  The  array  is  written  in  a  file  on  logical  unit 
2.  We  will  refer  to  this  information  as  output  AO. 


The  program  also  gives  a  printout  of  the  smoothed  height  data.  The 
height  interval  of  the  symbols  is  controlled  by  the  parameter  HTINT,  which  is 
read  from  logical  unit  5  in  the  format  F6.1.  The  listing  of  this  program  is 
given  in  Appendix  A. 


Program  GRIDAT 


This  program  selects  grid  point  values  of  terrain  height  from  tapes  of 
type  AO  (see  Program  TERRAIN).  The  grid  point  values  of  terrain  height  are 
assembled  in  the  array  GHT(22,22).  GHT(1,1)  is  at  the  southwest  corner  of  the 
array.  The  input  parameters  are: 


FIGURE  3  BLOCK  DIAGRAM  OF  WIND  PROCESSOR  PROGRAMS 
(AFTER  ENDLICH  AND  LEE,  1983) 
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MX —  Number  of  columns  in  the  terrain  height  array 
NY  —  Number  of  rows  in  the  terrain  height  array 
NGCX.NGCY  —  Column  and  row  of  the  site 

GINCX.GINCY  —  Grid  Increments  (km)  in  the  x  and  y  directions 

NFILES  —  Number  of  files  of  data  on  the  input  tape 

SLAT,£LNG  —  Latitude  and  longitude  of  the  site  in  degrees  and 
hundredths 

SHGT  —  Actual  height  of  the  site 

NFILES  —  Number  of  files  of  data  on  the  input  tape. 

Table  2  gives  the  formats  of  the  input  parameters. 


Table  2 


INPUT  FOR  PROGRAM  GRIDHT 


Input 

Record 

No. 


Variables 

MX,  NY,  NGCX,  NGCY 
GINCX,  GINCY 

SLAT,  SLONG,  SHOT 

NFILS 


Format 


'<I5,2F6.1 


3F10.3 


The  array  GHT  is  written  (or  punched  on  cards  in  the  version  given  here) 
in  the  format  11F6.0  for  use  by  the  windflow  model  (COMPLEX).  The  listing  of 
this  program  is  given  in  Appendix  A. 


Program  GEOCAL 


This  program  creates  a  file  of  weather  data  for  groups  of  weather  sta¬ 
tions.  The  file  includes  u  and  v  components  (m  s~^ )  and  geostrophic  wind 
computed  from  sea-level  pressure  data.  A  stability  index  is  also  computed 
from  cloud  and  temperature  data.  The  file  is  written  on  logical  unit  2. 

The  input  data  are  National  Weather  Service  TD-1440  Airways  Surface 
Observations,  Card  Deck  on  nine-track,  1600  bpi,  EBCDIC  magnetic  tapes. 

They  are  read  on  logical  unit  1.  Each  tape  contains  a  year  of  data  for  to  6 
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stations.  The  weather  data  may  be  obtained  from  the  National  Climatic  Data 
Center,  Federal  Building,  Asheville,  North  Carolina  28801  (telephone  704/258- 
2850).  The  program  fills  in  missing  or  garbled  data  with  the  last  available 
reliable  observation. 

The  input  parameters  (read  from  logical  unit  5)  are: 

NSTA  —  Number  of  weather  stations  used 

IU1 ,  IU2,  IU3  —  Indices  of  stations  used  in  geostrophic  wind 
computation 

IDATES  —  Starting  date  in  terms  of  year,  month,  day  (example 
770101 ) 

IGHS  —  Starting  hour  (GMT) 

ISTA  —  Weather  station  identification  numbers  used  by  NCDC 

IGMT  —  Time  corrections  to  convert  local  time  to  GMT  for  weather 
stations 

ALAT  —  Latitude  of  weather  stations 
ALONG  —  Longitude  of  weather  stations 

IFMT2  —  Header  format  for  data  printout  (on  logical  unit  6) 

IFMT5  —  Data  format  for  printout. 

Table  3  gives  the  formats  for  the  input  cards. 


Table  3 

INPUT  FOR  PROGRAM  GEOCAL 


Input 

Record 

No. 

Variables 

Format 

1 

NSTA,  IU1,  IU2,  IU3 
IDATES,  IGHS 

1018 

2 

ISTA(L) 

1018 

3 

IGMT(L) 

1018 

4 

ALAT(L) 

10F8.2 

5 

ALON(L) 

1 0F8 . 2 

6 

IFMT2 

8A10 

The  output  is  a  file  on  logical  unit  2  of  wind  components  and  stability 
at  each  station,  and  a  geostrophic  wind  for  the  area.  The  data  are  in  synop¬ 
tic  order.  For  1977,  the  data  are  at  three-hourly  intervals.  This  output  is 
referred  to  as  CO. 

The  listing  of  this  program  is  given  in  Appendix  A. 


d.  Program  XFORM 

This  program  makes  use  of  subroutines  from  the  International  Mathematical 
and  Statistical  Library  (IMSL).  A  detailed  description  of  its  use  in  wind 
energy  evaluation  was  given  by  Bhumralkar  et  al  (1978).  The  program  calis 
IMSL  subroutines  to  compute  a  covariance  matrix  of  the  input  data,  the  eigen¬ 
vectors  of  the  covariance  matrix,  and  the  coefficients  of  the  eigenvectors. 
Other  subroutines  could  be  substituted  to  perform  these  functions.  The  call¬ 
ing  parameters  are  described  in  detail  in  the  listing  of  this  program  given  in 
Appendix  A. 

The  input  data  are  station  wind  data  in  terms  of  u  and  v  components  and 
geostrophic  wind  components  at  three-hourly  intervals  from  tapes  of  type  CO 
Uee  program  GEOCAL). 

The  output  includes  a  listing  of  the  mean  winds,  the  eigenvectors,  and 
the  percentage  of  variance  explained  by  each  eigenvector.  The  means  and 
eigenvectors  are  punched  on  cards  (in  the  version  given  here)  for  use  by  the 
windflow  model.  Also,  the  coefficients  of  each  eigenvector  at  each  time  are 
written  in  a  file  on  tapes  designated  DO.  These  coefficients  are  not  used  in 
the  application  with  the  transport  and  diffusion  model. 


e.  Program  CMPLX3 

This  program  comprises  the  windfiow  model,  which  is  a  modified  version  of 
the  COMPLEX  model  described  by  Endlich  and  Lee  (1983).  The  model  computes 
nondivergent  winds  that  conform  to  the  terrain  and  to  the  shape  of  the  bound¬ 
ary-layer  top.  The  program  requires  terrain  heights  for  a  coarse  grid  and  a 
fine  grid  as  given  by  Program  GRIDHT.  It  also  requires  the  mean  winds  and  the 
significant  eigenvectors  from  Program  XFORM.  The  input  parameters  are: 

JSITE  —  Site  identification  number 

NWIND  —  Number  of  wind  patterns  (data  sets)  to  be  treated 

NGRID  —  Number  of  grids  to  be  used 

IXZ,JYZ  —  Column,  row  of  the  site  in  the  coarse  grid 

IXSS,  JYSS  —  Column,  row  of  the  site  in  the  fine  grid 

HSITE  —  Elevation  of  the  site  in  feet  (not  used  for  this 
application) 

MI,  N1  —  Number  of  columns,  rows  in  the  coarse  grid 


MR,  NR  —  Number  of  columns,  rows  in  the  fine  grid 

IZ  —  Ratio  of  coarse  grid  spacing  to  fine  grid  spacing  in  the  x 
direction 

JZ  —  Ratio  of  coarse  grid  spacing  to  fine  grid  spacing  in  the  y 
direction 

DSI  —  Coarse  grid  increment  (km) 

DSR  —  Fine  grid  increment  (km) 

AVTHK  —  Average  thickness  of  the  boundary  layer  (m) 

SLFAC  —  Slope  factor  for  the  boundary-layer  top 
(see  Endlich  and  Lee,  1983) 

STHK  —  Minimum  boundary  layer  thickness  over  high  terrain  (m) 

NREL  —  Upper  limit  on  the  number  of  relaxations  permitted  (see 
Section  II-B) 

RATIO  —  Ratio  of  vertical  to  horizontal  wind  alterations 

IPNCH  —  Punch  control  20  punches  output);  program  should 
probably  be  changed  to  write  records  to  disk. 

Additional  parameters  used  in  output  are: 

IV  ”  Eigenvector  number 

UV  —  u  component  of  site  wind  (not  used  for  this  application) 

VA  —  V  component  of  site  wind  (not  used  for  this  application). 

The  input  record  formats  are  shown  in  Table  4. 

The  output  of  CMPLX3  is  a  field  of  u,  v,  and  w  wind  components  corre 
spondlng  to  the  input  wind  pattern. 

The  principal  subroutines  are: 

TOPO  —  Reads  in  the  terrain  heights  and  computes  the  relative 
heights  of  the  sigma  surfaces  at  each  mesh  point 

SETBLT  —  Computes  the  height  of  the  boundary-layer  top  based  on 
the  input  values  of  thickness  and  slope 

INWND  —  Computes  the  Initial  estimate  of  winds  for  COMPLEX  based 

on  the  station  winds  at  anemometer  height  for  a  wind  pattern 
(l.e,  the  mean  winds  or  an  eigenvector)  and  the  associated 
geostrophic  wind  at  the  upper  boundary.  Values  of  wind  of 
intermediate  heights  are  determined  by  logarithmic  interpo¬ 
lation.  The  subroutine  also  interpolates  initial  winds  for 
the  fine  grid  from  the  altered  winds  of  the  coarse  grid 


Table 

INPUT  FOR  PROGRAM  CMPLX3 


Record 

No. 

Variables 

Format 

1 

JSITE 

115 

2 

NWIND,  NGRID 

215 

3 

IXZ,  JYZ,  IXSS,  JYSS, 
HSITE 

415,  F10.2 

4 

MI,  NI,  MR,  NR,  IZ,  JZ, 
DSI,  DSR 

615,  2F10.2 

5 

AVTHK,  SLFAC,  STHK,  DNI 

F10.1,  F10.2,  F10.1,  115 

6 

NREL,  Ratio,  IPNCH 

15,  E10.1,  15 

Output 

Record 

1 

JSITE,  IV,  UA,  VA,  DNI, 

215,  2F10.2,  15,  F10.0, 

AVTHK,  SLFAC,  STHK 

F5.1,  F8.0 

NET  —  Interpolates  grid-point  values  of  wind  components  at 

anemometer  height  from  the  station  values  for  each  wind 
pattern  being  processed 

RELAX3  —  Alters  the  initial  winds  to  a  nondivergent  condition. 


B.  Running  MADICT 
1 .  General 

The  program  MADICT  can  be  run  interactively;  some  fixed  input  files  are 
required  for  the  eigenvectors  and  the  wind  field  solutions.  Those  file 
requirements  are  described  below.  Examples  Illustrating  the  interactive 
inputs  are  presented  in  Appendix  C. 


2.  File  Requirements  for  Preprocessed  Wind  Information 
(a)  Eigenvectors  and  Mean  Winds 


The  eigenvectors  and  mean  winds  are  read  from  logical  unit  IVREAD, 
(assigned  the  value  11  in  the  subroutine  EVCO).  The  format  of  the  file  is 
given  in  Table  5.  The  program  assumes  the  values  that  follow  when  IV  -  0  are 
the  mean  components  (UM  and  VM)  for  each  of  the  NWINDS  stations;  NWINDS 
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includes  all  the  ground  level  sites  plus  one  upper  level  wind  used  in  defining 
the  eigenvectors.  The  code  also  assumes  that  N  -  NEIGN-^1  is  the  eigenvector 
that  explains  the  most  variance,  and  lower  IV  values  are  associated  with 
successively  less  important  eigenvectors.  NOTE;  NEIGN-9  is  used  in  PARAMETER 
statements  in  various  subroutines.  An  appropriate  value  should  be  substituted 
for  cases  where  the  total  number  of  eigenvectors  is  not  10  (equivalent  to  5 
wind  observations  in  an  input  data  set. 


Table  5 

EIGENVECTOR  INPUT  FILE 
(Logical  Unit  -  11) 


Parameter 

Format 

Remarks 

IV 

110 

Identifies  Eigenvector  Number 

(see  text) 

UE,  VE 

2F10.2 

u  and  V  components  of  eigenvector  or 

or  UM,  VM 

mean  winds. 

Finally,  it  is  best  to  arrange  the  eigenvector  input  data  file  with  the 
means  first,  followed  by  the  eigenvectors  in  order  of  decreasing  Importance. 
Note  also  that  the  magnitude  of  the  input  eigenvectors  should  be  100  cm  s”  . 
An  example  of  an  input  eigenvector  file  is  given  in  Table  6.  The  example 
given  would  not  permit  the  use  of  more  than  four  eigenvectors  for  reconstruc¬ 
ting  wind  field  solutions. 


(b)  Wind  Field  Solution  Sets 

The  solution  wind  fields  are  read  from  logical  units  21  ,  22  ...  (20  + 
NFILES)  where  NFILES  is  the  number  of  solution  sets  stored.  Each  file  of 
solution  sets  should  correspond  to  a  different  mixing  depth  category.  The 
number  of  such  files  (NFILES)  is  currently  set  to  2  in  a  PARAMETER  statement 
in  the  subroutine  FILEID. 

The  formats  on  these  files  should  be  as  shown  in  Table  7.  The  files  for 
logical  units,  21,  22  etc.  should  be  arranged  so  that  they  correspond  to 
solution  sets  for  increasing  mixing  depth.  Within  each  file,  the  first  por¬ 
tion  should  be  the  solution  for  the  mean,  with  subsequent  sections  giving 
solutions  for  eigenvectors  that  account  for  decreasing  amounts  of  the  wind 
variance.  Examples  of  these  files  are  given  with  the  sample  problems  in 
Appendix  C. 


Table  6 


Table  7 


WIND  FIELD  SOLUTION  INPUT  DATA  FILES 


Record  Parameters  Format 


Remarks 


1 

JSITE,  IV,  DNI, 

IX,  Ii»,  215, 

JSITE,  DNI  and  SLFAC 

AVTHK,  SLFAC 

FIO.O,  F5.1 

are  not  used.  AVTHK 
is  the  mixing  depth 
(m)  used  to  obtain 
solutions 

2-51 

(U.V.W.Z)3f^ 

8F10.2 

The  wind  components 
and  elevations  at  the 

52-101 

(u.v.w.z)top 

AF10.2 

bottom  (rec  2-51 )  and 
top  (52-101)  of  the 
layer  for  the  mean 
solution.  Values 
from  this  file  are 
stored  in  the  arrays 
PRECAL  (IX,  lY,  IZ, 
ICOMP, LEVEL,  NEIGN) 
and  RHS  (IX,  lY, 
LEVEL)  by  Subroutine 
WINDDO.  Sets  of 
values  are  read  for 
rows  of  grid  points 
(west-to-east) .  The 
rows  are  read  south- 
to-north. 

102 

same  as 

same  as 

record  1 

record  1 

1 03-202 

same  as 

same  as 

same  as  2-101  except 

2-101 

2-101 

for  the  next  eigen¬ 
vector  solution 

repeats 

solutions  for 

through 

eigenvectors  of 

all  solutions 

decreasing  importance 

3. 


Interactive  Inputs 

When  the  program  is  run,  It  will  ask  for  a  series  of  inputs.  Examples 
are  given  in  Appendix  C.  The  remainder  of  this  section  discusses  the  required 
interactive  inputs. 

(1)  Receptor  spacing  (m)?  The  user  supplies  the  distance  in  meters 
between  points  at  which  concentrations  are  to  be  calculated.  The 
area  within  which  concentration  is  calculated  will  be  a  square 
twenty  times  this  size  centered  on  the  source.  The  spacing  number 
should  probably  be  between  25  m  and  500  m  in  order  to  provide 
reasonable  coverage  and  detail.  Puffs  are  tracked  outside  this 
area — to  about  ±15  km  in  all  directions,  and  can  return  to  the 
calculation  grid  upon  wind  reversal. 

(2)  How  many  wind  sites?  This  input  must  match  the  number  of  wind 
measurement  sites  used  for  the  calculation  of  the  wind  field 
solution  sets  (excluding  the  upper  level  wind). 

(3)  How  many  empirical  orthogonal  functions?  The  number  input  here 
must  be  i  than  the  number  of  eigenvector  solution  fields  that  you 
have  provided. 

(^)  Source  x,  y,  z?  The  input  values  for  x  and  y  should  be  in  the  same 
coordinate  system  as  the  calculation  grid  U.e.  the  origin  is  at 
-15000,  -15000)  and  should  be  near  the  center  of  the  computational 
area  (near  0,0).  The  height  (z)  should  be  relative  to  the  local 
surface.  The  source  should  be  below  the  mixing  height.  The  input 
values  for  x,  y  and  z  are  separated  by  commas. 

(5)  Hour?  A  2-diglt  (2M-hr  clock)  hour  of  the  day  is  input.  This  is  a 
bookkeeping  measure  and  no  checks  are  made  for  consistency  (e.g. 
with  stability  class). 

( 6)  Mixing  height  and  stability  class  (Pasquill-Glfford,  as  an  integer 
from  1  to  6)?  These  values  remain  unchanged  through  the  next 
hour.  Separate  the  input  values  with  commas. 

(7)  Source  strength  (grams/sec)?  Almost  any  reasonable  value  can  be 
used.  The  value  remains  constant  for  the  ensuing  hour.  Calculated 
concentration  values  will  be  in  terms  of  whatever  mass  units  are 
used  (per  cubic  meter). 

(8)  Speed  (m/s)  and  direction?  (Degrees  clockwise  from  north — meteoro¬ 
logical  convention).  This  input  request  will  be  repeated  enough 
times  to  provide  inputs  at  all  wind  sites  and  at  the  top  of  the 
domain  for  the  beginning  of  the  hour.  After  asking  for  the  winds 
at  the  beginning  of  the  hour,  the  program  asks  for  the  values  at 
the  end  of  the  hour.  This  second  set  of  inputs  may  differ  in  any 
reasonable  way  from  those  that  have  been  input  for  the  beginning  of 
the  hour.  Separate  the  speed  and  direction  inputs  with  a  space  or 
comma.  Zero  wind  speeds  are  permissible. 


The  program  calculations  take  place  after  the  winds  have  been  Input.  At 
the  end  of  the  hour  It  calculates  concentrations,  returns  to  step  (6),  and 
asks  for  the  mixing  height  and  stability  for  the  coming  hour.  Program  execu¬ 
tion  can  be  terminated  with  the  Input  of  a  negative  mixing  depth.  It  will 
then  write  the  calculated  concentration  values  and  atop.  If  you  continue  , 
the  program  then  asks  for  source  strength  for  the  next  hour,  followed  by  a 
request  for  winds  at  all  sites  for  the  end  of  the  next  hour.  The  program  will 
repeat  the  process  until  five  hours  have  elapsed  (or  a  negative  mixing  height 
Is  supplied).  It  then  stops  and  writes  the  accumulated  results. 
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Appendix  A 

PROGRAM  LISTINGS  FOR  WIND  PREPROCESSORS 


Program  Terrain 

Subroutines:  AVERG 

SELECT 
UNPK16 
APRINT 
GO2E0F 
KEB264 


Program  GRIDtfT 


Program  GEOCAL 

Subroutines:  STABLE 

RECORD 
I  DENT 


Program  XFORM 

Subroutine:  SUB2 


Program  CMPLX3 


PROGRAM  TERRAINC INPUT, OUTPUT, TAPE 1 .TAPE2, TAPES* INPUT) 

C«»FOR  READING  DIGITAL  TERRAIN  DATA  AT  .005  DEO  INTERVALS  AND  SMOOTHING 
C  TO  GET  .01  DEG  VALUES 

C*«TAPE  1  IS  INPUT  FROM  NCIC,  TAPE  2  IS  SMOOTHED  OUTPUT 

C*  PT(1,1)  IS  AT  SW  CORNER  OF  1  DEO  BLOCK.  DATA  EXTEND  TO  NEXT  WHOLE 

C  LAT  AND  LONG. 

C*  TERRAIN  HEIGHT  DATA  ARE  HT(KY,JX).  KY  IS  COUNTER  S  TO  N,  JX  IS  W  TO  E 
C**  BY  R.  ENDLICH  ,  SRI,  MAY  79 
DIMENSION  IX(2),IY(2) 

DIMENSION  lACISOO), IUNPK(14) 

DIMENSION  KHAR(10),LINE{12> 

COMMON  /Cl/  RT(4370) 

COMMON  /C2/  PRC 202, 2) 

COMMON  /C3/  HT<101,101) 

COMMON  /C4/  IXSWC,  OELX 

DATA  KHAR/10H  1 23456789, 1 0H  ABCDEFOH 1 , 1 0H  JKLMNOPQR, 1 0H  STUVWXYZ+, 
-t-lOH  123456789,  1 0H  ABCOEFOHI ,  1 0H  JKLMNOPQR,  1 0H  STUVWXYZ-t-,  10H  123456 
+789, 1 0H  ABCDEFOH I / 

C  READ  9010,  NMAREA,TAPEIO,nECTN, IFILE 

C  PRINT  9015,NMAREA,TAPEI0,3ECTN, IFILE 

REWIND  1 

NUMREC  *0  9JX«1  9X12*2 

C  READ  HEADER  RECORD 

200  BUFFER  IN  (1,1)  < RTC 1 ) , RT(4370) ) 

ERROR* 1H  9  NUMREC  *  NUMREC  +1 

IF  (UNITCD)  230,210,220 
210  PRINT  22 

CALL  REMARK (20HEflF  AT  HEADER  RECORD) 

GO  TO  600 

220  ERROR  *4HP.E. 

C  HEADER  RECORD  IS  OK 
230  LAST  *  4370 

LENREC  *  LENGTH ( 1 ) 

K12  *  3  -  K12 

IF  (NUMREC  .EG.  1)  CALL  APRI NTCRT, NAME, I  FI LE, 6) 

C  PRINT  331,  NUMREC,  LENREC,  ERROR,  (RTC I ) , I *1 , LENREC) 

IBYTE  *  9  9  IF  (NUMREC  .EQ.1)  IBYTE  *  91 

CALL  UNPK8(RT, IBYTE  , I UNPK( 1 ) . 14) 

IX(K12)sSHtFT( lUNPKC 1 ),8)  .OR. IUNPK(2) 

IY(K12)  *  SHIFT! IUNPK(3),8)  .0R.IUNPK(4) 
lOX  *  SHIFT! IUNPK(9),8)  .0R.IUNPK(6) 

IDY  =  SHIFT! IUNPK(7) ,8)  .OR. IUNPK(8) 

NPTS  *  SHIFT! IUNPK(9),8)  . OR. I UNPK! 1 0) 

IH1  *  SHIFT! lUNPK! 1 1 ) ,8)  . OR. I UNPK! 1 2) 

IH2  *  SHIFT!IUNPK!13).8)  . OR. I UNPK! 1 4 ) 

PRINT  332,  NUMREC, LENREC. IX<KI2), IY(K12). IDX, IDY, NPTS  .IHI.IHZ 

+  , ERROR 

!JX  ,LT.  2  .AND.  NPTS  .LT.  1740)  GO  TO  200 
IF  (NPTS  .LT.  1740)  GO  TO  235 
CALL  UNPK16!RT, ! I BYTE+1 0) /2+1 . IA(1 ).NPTS) 

C«  PRINT  9027,  ( I A(L ) , L= 1 701 , 1800) 

C«  PRINT  9027,  !IA(L),L=  1,  100) 

CALL  SELECT! NPTS, K1 2, ! IBYTE+10)/2) 

IF  !JX  .GT.  1  •  GO  TO  245 
235  CONTINUE 


DO  240  KYI  >  1.202 

PR(KY1 .3-K12)  =  PR(KY1.K12) 

240  CONTINUE 

00  TO  250 
245  CONTINUE 

NSX  =  IXSWC  +  (JX  -1)  »  OELX 
PRINT  9026,  NUMREC, JX.K12, IX(K12) .NSX 
IF  (NSX  .GT.  IX(K12)  )  GO  TO  200 
C«  PRINT  9026,  NUMREC. JX. K1 2. I X(K1 2) , NSX 

250  CALL  AVERO(JX) 

C  PRINT  9028,  (HT(KY. JX) .KY=91 . lOt ) 

JX  =  JX  +  1 

IF  (JX  .OT.  101)  GO  TO  600 
GO  TO  200 
600  CONTINUE 

602  IF  (JX  .OT.  101)  GO  TO  605 

DO  603  KY  =  1,101 

HT(KY,JX)  =  HT(KY.JX-I) 

603  CONTINUE 
JX  =  JX  +1 

GO  TO  602 
605  CONTINUE 

WRITE! 2)  ( (HT(K, J),K=1. 101 ) . J=1 . 101 ) 

REA0(5,15)  HTINT 
PRINT  9032,  HTINT 
SCFC  =  1.0/HTINT 
PRINT  9040 
DO  615  KY  =  1,101 
KYP  a  101  -  KY  +1 
DO  610  JX  =  1,101 
HTD  a  HTIKYP.JX) 

K  a  SCFC  »  HTD  +1 

IF  (HTD  .GT.  0.0  .AND.  HTD  .LE.  25.0)  K  =32  ;  FOR  SHORELINE 
IF  (K  .LT.1)  K  =1  S  IF  (K  .GT.  100)  K  *  100 

CALL  CHAR(KHAR,K,I.INE, JX, 1)  ;  USUAL  ORDER  REVERSED 

610  CONTINUE 

PRINT  9030, KYP, LINE 
615  CONTINUE 

PRINT  9040 
10  FORMAT  (AlO) 

15  FORMAT  (F6.1) 

21  FORMAT  (aOERROR  110  -  CANT  RECOGNIZE  NAME«A1 1 , / . ( 1 0X, 1 0A1 1 ) ) 

22  FORMAT  (aOERROR  210  -  EOF  AT  HEADER  RECORD*) 

23  FORMAT  ( 2X. I  6, 2A1 0, I  6) 

331  FORMAT  (*ORECORO  *21 5, A1 2. / , ( 1 0X, 5022) ) 

332  FORMAT  (  1 X,  I  4  ,  I  6,  2X,  21 6, 2X. 21 6, I  7, 2X. 21 6, 5X, A1 0) 

9010  FORMAT  (3A10,I5) 

9015  FORMAT  (2X,3A10,*  FILE  =*I6) 

9026  FORMAT  (2X,6I5) 

9027  FORMAT  ( 1 X , 4 ( 2X, 51 5 ) ) 

9028  FORMAT  ( 1 X, 4 ( 1 X, 5F6 . 0) ) 

9030  FORMAT  (4X ,  I  5, 2X, 1 2A1 0) 

9032  FORMAT  (1H1,*  HEIGHT  INTERVAL  a  *F6.1) 

9040  FORMAT! /I  1 X, 9( 1  HO) , 1 0( 1  HI ) , 1 0( 1 H2) , 1 0( 1 H3> , 1 0( 1 H4 ) , 1 0( 1 H5) . 
+10( 1H6) , 10( 1H7) , 10( 1H8) , 10( 1H9), 1H0/1 IX. 

+  101 1 0H 1234567890)/) 

9042  FORMAT  ( 1 00( 1 X, 30( 1 X, 03)/ ) ) 


noooo 


SU:}RaUTINE  AVERO(JCOL) 

C«  AVERAGE  PR(X. J )  AND  PR(X.2)  TO  GIVE  SMOOTHED  TERRAIN  AT  .01  DEG  INCR 
COMMON  /C2/  PR (202, 2) 

COMMON  /C3/  HT(IOI.IOI) 

HTd.JCOL)  »  0.5  «(PR(1,1>  +  PR(1,2)) 

DO  100  KY2  »  3,201,2 
KYI  »  (KY2  +1)/2 

HT(KY1,JC0L)  «  .16667  *  (PR(KY2-1.1)  +PR(KY2,  1 )  +  PR(KY2-f  1 ,  1  ) 
100*  CONTINUE  *  PR<KY2-1,21  +  PR(KY2,2)  +  P.UKY2d,2)) 

RETURN 

END 


SUBROUTINE  SELECTINN, JCOL, I  16) 

C«  lUNPK  IS  RAW  TERRAIN  DATA,  NN  IS  NO.  OF  PTS  IN  PROFILE,  JCOL  IS  COL. 
COMMON  /Cl/  RT(4370) 

COMMON  /C2/  PR (202, 2) 

CALL  UNPK16(RT, I  16+1 , IB, 1 ) 

PR(1,JC0L)  =  IB 
DELY  =  (NM-1)/200.0 

KBFG  s  2  S  KEND  «  202  S  KSKIP  «  1 
DO  SO  KN  =  KBEG, KEND, KSKIP 
NSY  *  1.0  +  (KN-1)  »  DELY 
IF  (NSY  .GT.  NN)  GO  TO  45 
CALL  UNPK16(RT, I 16+NSY, IB, 1 ) 

PR(KN,JCOL)  -  IB 
GO  TO  48 

45  PR(KN,JCOL)  ■  PR(KN- 1 , JCOL) 

C48  IF  (KN  .LT.  6  .OR.  KN  .GT.  195)  PRINT  9002,  KN, NSY, PR(KN, JCOL) 

46  CONTINUE 
50  CONTINUE 

9002  FORMAT  ( 3X, 21 8, FI 0. 0) 

RETURN 

END 


SUBROUTINE  UNPK16(PACK, IB. I 16,N16) 

REVISION  date:  JULY  24,  1976 

UNPACK  *N16*  16-BIT  BYTES  FROM  *PACK«.  STARTING  WITH  THE  IB-TH  ONE, 
AND  STORE  I NTO  *116*. 

USES  *UNPK6*  TO  FIRST  UNPACK  INTO  8  BIT  BYTES. 


DIMENSION  PACK( 1 ), I 16( 1 ), I8BB(2) 

C . 

IS  *  2«IB  -  3 
DO  10  I*1,N16 

IS  *  IS  +  2 

CALL  UNPKeiPACK, 18, I8BB,2) 

116(1)  *  SHIFT( I8aB( 1 )  .AND.  177B.8)  .OR.  I8BB(2) 
C  CHECK  FOR  SION  BIT 

IF  ( ( l&BB(1 ) . AN0.200B)  .EO.  O)  GO  TO  10 
116(1)  a  -116(1)  -1 
10  CONTINUE 
RETURN 


C 


oooo 


SUBROUTINE  APR I  NT ( DATA, NAME, IFIL, IBEO) 

REVISION  DATE:  APRIL  24,  1979 

PRINT  THE  CONTENTS  OF  A  TYPE  A  LOGICAL  RECORD  FROM  A  DIGITAL  TERRAIN  TAPE 
USES  UNPKB  AND  CHAR  (FROM  LIBRARY  WINDLIB/UN'OEBJF) 


LOGICAL  DEBUG 

DIMENSION  OATA( 1 ) , lUNPKI 1 6) , C0RNER(4 ) , SHEETf 2) , UNI TS(2) 


COMMON  /C4/  IXSWC,  DELX 

DATA  DEBUG/ . FALSE . /  ; NO  DEBUGGING  PRINTOUT 

DATA  DEBUG/. TRUE./  ; DELETE  THIS  CARO  WHEN  THIS  SUBROUTINE  WORKS 

DATA  UNITS/6HMETERS,5H  FEET/ 

DATA  CORNER/ 9HS0UTHWEST, 9HN0RTHWEST, 9HN0RTHEAST, 9HS0UTHEAST/ 


N32BIT( 1 1 , 12, 13, 14)  =  SHI FT(SHI FTC  1 1 , 52) . OR . SHI FT( I  2, 44 ) 

+  .OR.SHIFT(l3, 36) .OR.SHIFT(I4,28>, -28) 


C 


C 

C 


C 


C 


C 


1 

FORMAT 

("  SUBAREA 

"A1 1 "FILE: "12) 

2 

FORMAT 

(35X."  MAP 

PROJ  ELEVATION" 

+ 

/3X" 

SHEET 

SERIES  EDITION 

PROJ 

ZONE 

UNI  T  S" 

+ 

/" 

N  U  M  B  E 

R"5X"I  D  I  D 

CODE 

NUM 

CODE  TYPE" 

+ 

/IX. 

A10,A2,3X. 

A6,3X,A6.3X. 14, 3X. 14, 

2X,  14 

, IX, A6) 

3 

FORMAT 

(13X"I  N  C 

HES  DEGREE 

S"7X" 

DEG. MIN. SEC" 

+ 

, 1 IX" ARC-SECONDS" 

+ 

/I5X"X 

Y"8X"LaN  LAT"6X"L 

0  N 

L  A  T" 

+ 

,8X"L  0  N 

L  A  T") 

4 

FORMAT 

( 1X,A9,2X, 

2F6.2.3X.F7.2.F6.2,3X,  14". 

"12" . "12 

+ 

. 13" . "12" . 

"I2.4X,2I7) 

BYTES  1-12:  SHEET  NUMBER  (EBCDIC  CODE) 

ID  CALL  UNPKSCDATA,  IBEG-t-l  ,  lUNPK,  12) 

11  FORMAT  ("OBYTES  1  - 1 2: “ 1 2( IX, 03) ) 

IF  (DEBUG)  PRINT  11,  ( I UNPK( I ) , I « 1 , 1 2) 

DO  1 2  1=1,12 

CALL  KEB264 ( I UNPK ( I ) , SHEET , I ) 

12  CONTINUE 

BYTES  13-18;  SERIES  ID  (EBCDIO  CODE) 

20  CALL  UNPKSfDATA, lBEG+13, IUNPK,6) 

21  FORMAT  ("OBYTES  1 3- 1 8 : " 1 2( IX. 03) ) 

IF  (DEBUG)  PRINT  21,  ( I UNPK( I ) , I = 1 . 6) 

DO  22  1=1,6 

CALL  KEB264 ( 1 UNPK ( I ) , SER I ES , I ) 

22  CONTINUE 

BYTES  19-24:  EDITION  ID  (EBCDIC  CODE) 

30  CALL  UNPK8<DATA, IBEG+19, lUNPK.S) 

31  FORMAT  ("OBYTES  1 9-24 : " 1 2( 1 X. 03) ) 

IF  (DEBUG)  PRINT  31,  ( I UNPK ( I ) , 1 = 1 . 6) 

DO  32  1=1,6 

CALL  KEB264(IUMPK(I), EDITION, I) 

32  CONT I NUE 

MAP  PROJECTION  CODE,  PROJECTION  ZONE  NUMBER.  AND  ELEVATION  UNITS  CODE 

40  CALL  UNPK8(DATA, IBEG+25, IUNPK,6) 

41  FORMAT  ("OBYTES  25-30 :" 1 2( 1 X, 03) ) 

IF  (DEBUG)  PRINT  41,  ( I UNPK< I ) , 1 = 1 , 6 ) 

IPROJ  =  SHIFT! lUNPKC 1 ) .6) .OR. IUNPK(2)  ;BYTES  25-26 


IZONE  «  SHIFT( IUNPK(3).6) .OR. IUNPK(4)  .BYTES  27-26 

lUNITS  =  SHIFT( IUNPK(S).6) .OR. IUNPK(6)  iBYTES  29-30 

C  BYTES  31-46:  (X.Y)  OF  MAP  CORNERS  --  INCHES 

50  CALL  UNPK8  ( DATA .  1  BE6-t-3 1 .  I UNPK  .16) 

51  FORMAT  ("OBYTES  31 -46; "16(1X.03) ) 

IF  (DEBUG)  PRINT  51.  < I UNPK( I ) . I  *  1 . 1 6) 

XSW  =  O.01«FLOAT<(SHIFT(IUNPK(  1 ) . 8) . OR. IUNPK(  2))) 

YSW  «  0. 01 *FLOAT( <SHIFT( I0NPK<  3 ) , 8) . OR . I UNPK(  4))) 

XNW  =  0. 01 *FLOAT( (SHIFT! IUNPK(  5) . 8) . OR. I UNPK(  6))) 

YNW  =  0. 01 «FLOAT( (SHIFT! IUNPK(  7) . 8) . OR . I UNPK(  8))) 

XNE  s  0. 01 «FLOAT( (SHIFT! IUNPK(  9) . 8) . OR. I UNPK! 1 0) ) )  - 
YNE  =  0.01«FL0AT(!SHIFT!IUNPK!11).8).0R. IUNPK!12))) 

XSE  =  0.01«FLOAT!!SHIFT!(UNPK!13).8).OR. IUNPK!14))) 

YSE  =  0. 01 (FLOAT! (SHIFT! lUNPK! 15).8) .OR. lUNPK! 16) ) ) 

DELX  (  XSE  -  XSW 

I XSWC  ~  1 00  ^  XSW 

C  BYTES  47-78:  LON-LAT  OF  CORNFRS  OF  AREA  COVERED  BY  THE  MAP 

60  CALL  UNPK8!DATA.  IBE(i:+47.  lUNPK.  16) 

61  FORMAT  ! "OBYTES  47-62: " 16! IX. 03) ) 

62  FORMAT  ! "OBYTES  63-78: " 1 6! IX. 03) ) 

IF  (DEBUG)  PRINT  61.  ! I UNPK! I ) . I =1 . 1 6) 

LONSW  =  N32BIT( lUNPK!  D.IUNPK!  2).IUNPK!  3),IUNPK!  4))  -1 

LATSW  =  N32BIT( lUNPK!  5).IUNPK!  6),IUNPK!  7),IUNPK!  8)) 

LONNW  z  N32BIT( lUNPK!  9) . I UNPK! 1 0) . I UNPK ( 1 1 ) . I UNPK ! 1 2) )  -1 
LATNW  s  N32BIT!IUNPK!13). IUNPK(14), IUNPK!1S), IUNPK!16)) 

CALL  UNPK8(DATA.  IBEG-t-63.  IUNPK.16) 

IF  (DEBUG)  PRINT  62,  ( I UNPK! I ) . I = 1 . 1 6) 

LONNE  =  N32BIT! lUNPK!  D.IUNPK!  2),IUNPK!  3).IUNPK!  4))  -1 

LATNE  =  N32BIT! lUNPK!  5).IUNPK(  6).IUNPK!  7),IUNPK!  8)) 

LONSE  =  N32BIT( lUNPK!  9) . I UNPK! 1 0) , I UNPK! 1 1 ) , I UNPK! 1 2) )  -1 
LATSE  =  N32BIT(IUNPK!13). IUNPK!14). IUNPK!15), IUNPK(16)) 

PRINT  1 .  NAME, IFIL 

PRINT2, SHEET, SERIES, EDITION. IPROJ. IZONE. I  UNI TS, UNI TS( I  UNI TS-M  ) 
PRINT  3 

X*XSW  S  YaYSW  S  LON=LONSW  S  LATsLATSW  $  I  GOTO* 1  S  GO  TO  80 

71  XsXM"  $  Y=YNW  S  LON=LONNW  9  LAT=LATNW  9  IG0T0*2  S  GO  TO  80 

72  X=XNE  S  Y»YNE  $  LON=LONNE  9  LAT=LATNE  9  IGOTO=3  S  GO  TO  80 

73  XsXSE  S  Y*YSE  $  LON»LONSE  9  LATsLATSE  $  I00T0=4  9  GO  TO  80 

74  RETURN 

C  PRINT  A  LINE  FOR  THE  LOCATIONS  OF  A  CORNER 

80  DLON  =  LON/3600.0  9  DLAT  =  LAT/3600.0 

LOND  =  ISIGN!  IABS(LPN)/'’600,L0N) 

LATD  =  LAT/3600 

LONM  =  lOD! ( I ABS(LaN)/60) .60) 

LATM  =  M0D(LAT/60,  60) 

LONS  =  M0D( I ABS(LON) .  60) 

LATS  =  M0D(LAT,60) 

CALL  DATEXIOATEI , DATE2) 

PRINT  9005,  DATE1,DATE2 
9005  FORMAT!  IX,  A 10,  AD 

PRINT  4,  COrNER( IGOTO), X.Y, DLON, DLAT, 

+  LOND, LONM, LONS,  LATD, LATM, LATS,  LON.LAT 

WRITE(2)  DATE1 , DATE2, CORNER! IGOTO) . X, Y, DLON, DLAT. 

1  LOND , LOMM , LONS , LATD , LATM, LATS , LON , LAT 

GO  TO  (71 , 72, 73,  ■'4)  .  IGOTO 


SUBROUTINE  802E0F(LUN. NEOF.NREC) 

C  REVISION  DATE.-  AUGUST  I.  1977 

C  SKIP  TO  THE  NEOF-TH  END  OF  FILE  ON  LOGICAL  UNIT  NUHBER  »LUNt . 
C  NOTE  THAT  THIS  VERSION  USES  «BUFFER  IN«  TO  READ  THE  DATA. 

10  IF  (NEOF  .LT.  1)  GO  TO  90 

I  EOF  s  0 

20  BUFFER  IN  (LUN. 1)  (NULL. NULL) 

NREC  >  NREC  1 

IF  (UNIT(LUN))  20,30.20 

30  lEOF  »  lEOF  +  1 

IF  (I EOF  .LT.  NEOF)  GO  TO  20 

90  RETURN 


END 


SUBROUTINE  KE')264(  1 8BI T, STRING. K) 

C  REVISION  date;  JULY  21.  1976 

C  BY  TABLE  LOOKUP,  CONVERT  «I6BIT*  FROM  AN  B-BIT,  RIGHT  JUSTIFIED.  EXTERNAL  BCD 
C  COOED  (EBCDIC)  CHARACTER  TO  A  COC-6400  INTERNAL  DISPLAY  CODED  CHATACTER 
C  STORED  IN  THE  PROPER  CHARACTER  POSITION  OF  ■STRING*. 

C  USE  SUBROUTINE  «CHAR«  TO  TRANSFER  THE  PROPER  SIX  BIT  CHATACTER  FROM  THE 
C  PACKED  CONVERSION  TABLE  INTO  THE  K-TH  CHARACTER  OF  »STRIN0». 


DIMENSION  TABLE(26) 
DATA  TABLE/ 

0  . 

0 

.  0 

.  0 

.  0 

0 

.  0 

,10H  .<(+ 

.  0 

10H  $«);■'-/ 

,  10H 

,  , 1 0H> 

,10H  A, 

10HBC0EFGHI 

.  10H 

JKLMN, 10H0PQR 

,10H  STUVWXYZ, 

0 

.  0 

, 1 0H  ABCDEFO 

.10HHI  J, 

1 OHKLMNOPQR 

.10H 

STUV, 10HWXYZ 

, 1 0H0 1234 96789, 

0 

/ 

CALL  CHARITABLE.  IBBIT-t-1  .STRING. K.  1 ) 
RETURN 


PROCRAM 


CRIOHT 


cue  C.TOO  FTN  VJ.O-JbSF  OPT<l  79/12/26.  IJ.5I 


procram  griohti input .output. tapei.punchi 

C*  USt  SMOOTMEU  .01  DEC  TERRAIN  MEICNTS.  PICKS  OUT  PROPER  V/H.UES 
C  FOR  CRIU  PTS.  SMOOTHES  FURTHER  FOR  AREAS  EQUIVALENT  TO  CRIO  SPACING 
C*  av  R  ENOLICH.  SRI  7/79 

OIMENSIUN  ALATI22.22>.ALNGC22.22*.CMT|22.22I.CKi 22 .22 t .CVI 22 .22  I 
DIMENSION  HTI  101.1011 

READ  9001.  MK.NV.NCCX.NCCV.CINCX.CINCV 
PRINT  9002.  MX.NV.NCCX.NCCV.CINCK.CINCV 
READ  9003.  SLAT.  SLNC.  SHOT 

PRINT  90a«.  SLAT.  SLNC.  SHCT 
C*  HEIGHT  DATA  ARE  HTI IX. IV  I  IN  FEET 

C*  NCCX.  NCCV  ARE  COLUMN  AM)  ROM  OF  SITE.  IX  COES  I .MX  IV  COES  l.NV 
C  11.11  ISSM  CORNER.  GRID  INCREMENTS  ARE  IN  KM. 

C*  CXI  .  I  HAS  X  VALUES  OF  GRID  PTS.  XaO  IS  AT  NCCX.  T»C  SITE. 

C*  COMPUTE  LAT  ANO  LONG  OF  CRIO  PTS 

DO  100  IX  >I.MX  •  OO  too  IV  ■  l.NV 
GXIlX.IVI  ■  IIX  -NGCXI  •  CINCX 
GVIlX.IVl  ■  IIV  -  NGCVl  9  CINCV 
ALATIIX.IV)  -  SLAT  «  CVIlX.IVl/ltl.O 
COSS  ■  COSISLAr/S7.29SSl 

ALNGIIX. IV)  s  SLNC  ♦  CXItX.IVl/llll.O  •  COSS) 

IF  IIX  .EO.  1  .OR.  IX  .EO.  MX) 

•  PRINT  901 O.GXI  IX. IVI.ALNGI lX.IVl.GVI IX. IT) . ALAT I  IX. IV) 

100  continue 

CALL  MEMSETXIO.O.CHT. 22*22) 

READ  9001.  NF  ILES 
PRINT  9006.  NFILES 
NCOUNT  .  0 
lAO  CONTINUE 

C*  READ  AREA  LIMITS  ANO  THE  0.01  OEG  HEIGHTS 
PRINT  3 

OO  160  1C  ■  1.4 
ISO  CONTINUE 

READ  II)  OATE.OATC2.CORNER.X.V.OLON.OLAT.LONO.LONM.LON$.LATO. 

•  LATM.LATS.LOM.LAT 

IF  leOFIll)  ISO.iSS 
ISS  CONTINUE 

PRINT  4.  CORNER. X.V.OLON.OLAT.LONO.LONM.LONS.LATO.LATM.LATS. LON. 

•  L  AT 

IF  I  1C  .CT .  II  GO  TO  160 
MLNG3  OLON 
A SLAT  a  OLAT 
ELNC  «  MLNC  *  1.0 
ANLAT  >  ASLAT  •  1.0 

160  CONTINUE 

PRINT  9014.  ANLAT. ASLAT. ELNC. MLNC 
NCOUNT  M  NCnUNt  *  I 

RFAO  II)  I  I HTIK, Jl .K> I .  101 1 ./>l .1 01 1 
C*  HTtl.l)  IS  AT  SH  CORNER.  K  INCREASES  TO  N.  J  INCREASES  TO  EAST. 

on  1 6S  J  X I .  s 

l6S  PRINT  •1012.  (PTIK.J)  .KX|  .20) 

C*  SEARCH  THE  AREA  TC  SFF  IS  A  uRIU  PT  IS  EnCLOSLU.  IF  IT  IS  PICK 
C  THI  Hr  IGHT  value. 

OO  203  lA  -i.MK  *  rir,  200  iv  .  i.nv 

IF  lALATtlA.ITI  .uT.  ANLAT  .OR.  ALATIlA.ITI  .IT.  A^LATI  Gil  TO 


^9 


cniOMT 


coc  oroo  f  ft,  vj.o-jitbe  opr-i 


*  2<1J 

IF  I  AlNCI  IX.  IV  I  .CT  .  tLNG  .OR.  M-MGIIK.IVI  .LT.  M.Nt.1  GO  lU 
»  200 

AX  *  IM.NGtlX.IVl  >«ILNGI  *  .00b 
LX  m  100  •  Ax 

AV  >  lALATIlX.IVI  -  ASLATI  •  .JOS 
LV  *  100  •  AV 

C*  LX  ANO  LV  ARE  INC  ICES  TO  PICK  OUT  HT t  I  VALUES 

c*  COMPUTE  smoothing  interval 

IS  >  GINCV/(2.S  •  I. ill 
LVN  X  LV  •  IS 

IF  ILVN  .GT.  1011  LVN  a  101 
LVS  *  LV  -  IS 
IF  ILVS  .LT.  II  LVS  a  I 
LXE  a  LX  «  IS 

IF  tLXE  .GT.  1011  LXE  a  |0I 
LXa  a  LX  -  IS 
IF  ILXV  .LT.  I  I  LXK  a  | 

GHTtlX.IVI  a  0.2  •  IHTILV.LXI  «  HTILVN.LXI  »  HTILVS.LXl  « 

A  htilv.lxci  «  mtilv.lxkii 

IF  IIX  .EO.l  .OR.  IX  .60.  MXI 
A  PRINT  0021.  AX.LX.AV.LV.GHTt lX.IVI.lS.IX. IV 
200  CONTINUE 

PRINT  OOlS 
DO  220  IV  a  l.NV 
IP  a  NV  A  I  -  IV 

220  PRINT  0012.  IGHTI lX.IPI .IXal.MXt 

IF  INCOUNT  .LT.  NFILESI  GO  TO  lAO 
CO  INSERT  HEIGHT  AT  SITE 

GHTINGCX.NGCVI  a  SHGT 

CO  PUNCH  the  southern  ROM  FIRST  FOR  USE  ST  TOPO 
OO  22S  IT  a  l.NV 

22S  PUNCH  OOlS.  IGHTI lX.IVI .IXal *MX» 

3  format  IIJX«>I  NCHES  0E6REE  SmTXmOEG  .MIN.SEC* 

A  .1 |XaARC>SCCONOS* 

A  /ISX«X  TMOK«LON  LAT»fcX«L  ON  L  A  T« 

A  .AX^L  ON  LA  TM| 

O  FORMAT  llX.A0.2X.2FS.2.JX.Fr.2.FS.2.3K.IO".'*l2*.*'l2 

A  . I J>.«I2".~ I2.AX.2I n 

9001  FORMAT  I4IS.2F0.I  | 

'»(|02  FORMAT  I/O  NO.  PTS  O-E  aOIJ.A  N-S  aAlJ.A  SITE  COL  aA|j.A  SITE 
AROM  aAlJ.O  GRIO  increments  X  aAFS.I.O  V  aAFS.II 
9003  FORMAT  lOFIQ.JI 

9000  FORMAT  I/A  site  LAT  aAFH.2.A  LONG  aAFM.J.o  HEIGHT  IN  FTaAFJ.OI 
900*  format  I/a  NO.  OF  FILES  FOR  I  HV  I  OEG  AREAS  aA|5l 
9010  format  llOF|a.2l 

9012  FORMAT  I20F*.0I 

9013  format  I/20FA.II 

901*  FORMAT  I/A  northern  LAT  aAFfa.I.A  SOUTHERN  LAT  a  AF'O.I.A  EASTERN 
A  LM,  aair.I.A  MESTERN  long  aAFT.t/l 
90IS  FORMAT  I /A  HI.  IGHT  VALUES  AT  GMIO  POINTS*/  I 

901*  FORMAT  «IIF6.0I 

9021  format  1/21  Fit.J  .14  I  ,F  I  0.  I  .31*1 

■■.TUP 
I  NC 
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PROGRAM  OEOCAL  ( I NPUT, OUTPUT. TAPEI . TAPER, TAPES- I NPUT, TAPES- 
•OUTPUT) 

THIS  PROGRAM  CREATES  A  DATA  FILE  OF  WEATHER  DATA  FOR  GROUPS 
OF  WEATHER  STATIONS  IN  VARIOUS  U.S.  AREAS  DURING  1977-1978.  THE 
GEOSTROPHIC  WINDS  AND  STABILITY  INDICES  ARE  ALSO  COMPUTED. 

COMMON  /REC/  ID(60) . NF. NR. NP, LEN, lEOF 
COMMON  /CSTAB/SP1 SO. CPI  SO. DAY 

COMMON  /DAT/  SP( 10) . ALAT( 1 0) . ALON( 10) . I U1 . I U2. I U3. Cl .  C2. FC. 

1 AVLAT. AVLON. OENOM. STLT1 . STLT2. STLT3. STLN1 . 8TLN2. 8TLN3. COSLAT 
DIMENSION  ISTA(10).STAN(10). I0MT<10).SI (10).WD(10).WS(10).OC(10). 
1SPS(10).WOS(10).OCS(10).WSS(10).U(10).V(10).P180S(10).P1SOC(10). 
2IFMT2(6). IFMTS(4).STANS(10),US(10).VS(10).SIS(10),M0DA(12) 

DATA  (MODA-31 . 26.  31 . 30. 31 . 30. 31.31. 30. 31 . 30. 31 ) 

DATA  ACR  /O. 0174533/ 

DATA  SPS.WDS.WSS.0CS/10«1013.0. 10a270.0. 10«1 .0. 10*5.0/ 

DATA  US.VS.SIS.UGS.VGS  /1 0* 1 . 0. 10*1 . 0. 10*3. 0. 0. 0. 0. 0/ 

1  FORMAT  (1H1 . 10X-CREATI0N  OF  A  DATA  FILE  OF  SURFACE  METEOROLOGICAL 
1DATA.  GEOSTROPHIC  WINDS  AND  STABILITY  INDICES.*/) 

3  FORMAT  (10IS) 

4  FORMAT  (10FS.0) 

6  FORMAT  (A2. I1.R7) 

7  FORMAT  (A9,  ID 

B  FORMAT  (/1H  . *EN0  OF  FILE.  TAPE2  ...  NO.  OF  RECORDS  -*I5) 

9  FORMAT  (3X*SFC  P: «5(F6. 1 . 17X) ) 


10 

FORMAT 

(6A10) 

1 1 

FORMAT 

(1H  ,6A10) 

12 

FORMAT 

(A2) 

13 

FORMAT 

(6X.A2) 

14 

FORMAT 

(1X.A4) 

15 

FORMAT 

(8X.A1 ) 

16 

FORMAT 

(1H  ,«WS 

MISS 

NG 

FOR 

SITE*I6, 

« 

ON* 1 7, 

12) 

17 

FORMAT 

(1H  ,*WD 

MISSING 

FOR 

SITE*I6. 

« 

ON* 1 7. 

12) 

IS 

FORMAT 

(1H  ,*SP 

MISS 

NO 

FOR 

SITE* 1 6. 

• 

ON* 1 7. 

12) 

19 

FORMAT 

(1H  .*0C 

MISSING 

FOR 

SITE* IS. 

« 

ON* 1 7, 

12) 

I NPUT  . . . 

IFMT2  «  HEADER  FORMAT  FOR  DATA  PRINTOUT. 

IFNT5  -  DATA  FORMAT  FOR  PRINTOUT. 

NSTA  -  NO.  OF  STATIONS  IN  THE  AREA. 

IU1.  IU2.  IU3  a  INDICIES  OF  STATIONS  FOR  GEOS  WIND  COMPUTATIONS. 
ISTA  -  STATION  NUMBERS. 

I  GMT  -  GMT  TIME  CORRECTION  FOR  EACH  STATION. 

ALAT  =  LATITUDE  FOR  EACH  STATION 
ALON  -  LONGITUDE  FOR  EACH  STATION. 

I  DATES  -  STARTING  DATE  OF  INTEREST 
I  OHS  -  STARTING  GMT  HOUR. 

READ  (5,3)  NSTA, IU1 . IU2. IU3. IDATES. IGHS 
WRITE  (6.3)  NSTA. IU1 , IU2, IU3. IDATES, IGHS 

READ  (5.3)  ( ISTA(L) .L-1 .NSTA)  *  READ  (5.3)  ( lOMT(L) .L-1 .NSTA) 
WRITE(6,3)  (ISTA(L). L-1. NSTA)  9  WRITE(6.3)  ( lOMT(L) . L- 1 . NSTA) 
READ  (5.4)  (ALAT(L). L-1. NSTA)  S  READ  (5,4)  ( ALON(L) . L« 1 . NSTA) 
WRITE  (6,4)  (ALAT(L), L-1 .NSTA)  9  WRITE  (6,4)  (ALON(L) . L= 1 . NSTA) 
READ  (5,10)  IFMT2  9  WRITE  (6,11)  IFMT2 
READ  (5.10)  IFMT5  9  WRITE  (6.11)  IFMT5 
ENCODE  ( 10.6, IFNT2(2)) IFMT2(2).NSTA. )FMT2(2) 

ENCODE  (10,7, IFMTBd ))  I FMTO ( 1 ) . NSTA 
WRITE  (6.1)  9  WRITE  (6, IFMT2)  9  IS-NRW-0 
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DO  50  I ■ 1 . NSTA 
P180«ACR«ALAT( I ) 

pi6os(( )>siN(Pi60)  s  pieocd )sces(Piao) 

STANSC I )>ISTA( I ) 

50  CONTINUE 

C1-I.0  S  RH0=1.1  S  C2>100.0/(RH0s1.  11)  S  10K-3H  NO 
STLT1»ALAT( IU1 )  S  STLN1 >ALON( 1 U1 ) 

STLT2eALAT( tU2)  %  STLN2sAL0N( IU2) 

STLTSsALATC IU3)  %  STLN3«AL0N( I U3) 

AVLAT  »  (  0.333  «(STLT1  +  STLT2  +  STLT3) > /S7 . 2956 
AVLON  ■  (  0.333  *(STLN1  *  STLN2  ■¥  STLN3) )/57. 2656 
PC  »  14.564  «  SIN(AVLAT)  6  COSLAT^COSC AVLAT) 

DENOM  »  <STLT2  -STLT1 )  «  (STLN3  -  8TLN1 )  -  (8TLT3  -STLT1 )  » 
+  (STLN2  -  STLN1) 

1 00  CALL  RECORD 

IP  (IE0P.EQ.3HYES)  00  TO  200 

PROCESS  ONE  RECORD  OP  DATA. 

DO  175  I >1,60. 6 

CHECK  POR  STATION  OP  INTEREST. 

ISITE>INTXX(I0(I),1,5) 

DO  105  J>1.NSTA 

IP  (ISITE.NE. ISTA(J))  00  TO  105 
JS>J  *  00  TO  110 
1 05  CONT I NUE 
00  TO  175 

PROCESS  DATA  POR  ONE  STATION. 

110  IYR«INTXX(10(I 1,6,2)  6  1 M0> 1 NTXX( I D( 1 ) , 6. 2) 

IDA=INTXX(I0(I  1,  10,2)  S  I  HOU’’>  I  NTXX(  1 0(  I +1  )  ,  2.  2) 

DAYs30.5»(IM0-1)+lDA 

IOH=IHOUR+IOMT(JS) 

CHANGE  THE  DATES  TO  BE  CONSISTENT  WITH  THE  OMT  TINES. 

IP  (I0H.LE.24)  00  TO  111 
IOH>IOH-24  S  tOA>IOA-M 
IP  ( IDA.LE.MOOA( IMO) 1  00  TO  111 
I0A>1  S  IM0>IN0-('1 
IP  ( INO.LE. 12)  OO  TO  111 
IM0=1  6  IYR=IYR+1 
11  IDATE=IYR«10000+IM0»100+IDA 

SKIP  NON-3-HOURLY  OBSERVATION. 

IP  (MODI IQH.3) .NE.O)  00  TO  175 
IS>IS-I-1 

IP  ( lOH.NE. lOHS)  OO  TO  180 
112  STAN( JS)>ISITE  S  10K>3H  NO 
1DATES>IDATE  $  I  OHS* I  OH 
DECODE  (2,  12,  ID(  I-t-4)  )  IWS 
I P  ( I WS . EQ . 2H  )  60  TO  1 1 5 
WS(JS)>INTXX(  ID(  I-1-4).  1,2) 

OO  TO  120 

1i5  WS( JS)>WSS( JS)  6  WRITE  (6,16)  I SI TE. I  DATE. 1 0H 
120  DECODE  ( 10.  13.  ID(  l-fS) )  IWD 
IP  (IW0.EQ.2H  )  00  TO  125 
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12S 

130 

139 

140 

145 

150 

195 

160 


165 

170 

175 

160 


i.U L'JIJJ  \K 


UD(  JS)«INTXX(ID(  l■^3).S.^)•10.0 
00  TO  130 

W0(JS)«WDS( JS)  3  WRITE  (6,17)  ISI TE, I  DATE, lOH 

DECODE  (9. 14. ID( l+O) )  ISP 

IF  (ISP.Ea.4H  )  00  TO  135 

SP(JS>-INTXX(  ID(  l•»'3).^.4)«0.  1 

IF  (SP(  JS)  .LT. 500.0)  SP(  JS)«SP(  JS)-t-1000.0 

00  TO  140 

SP(JS)-SPS( JS)  S  WRITE  (6,18)  181 TE, I  DATE, I  OH 
DECODE  (9.  19,  ID(  l-f?) )  IOC 
IF  ( lOC.EQ. IH  )  00  TO  149 
IF  (I0C.EQ.1HX)  00  TO  190 
OC(JS)>INTXX(  ID(  l•l■7),9,  1  ) 

00  TO  159 

OC(JS)>OCS( JS)  S  WRITE  (6,19)  I SI TE, I  DATE, I OH 

00  TO  155 

0C(JS)>10.0 

CHECK  TO  SEE  IF  ALL  SITES  ARE  ACCOUNTED  FOR. 

IF  (IS.NE.NSTA)  00  TO  179 

CALCULATE  THE  STABILITY  INDICES. 

DO  160  J«1,NSTA 

SPie0»P180S( J)  9  CP180«P160C(J) 

CALL  STABLE  ( I  HOUR, SAL, SI ( J ) , WS( J ) , 0C( J > ) 

CONVERT  WIND  SPEED  UNITS  FROM  KTS  TO  M/S. 

WS(J)=WS( J)<0.5148 

AN0LE=ACR«W0( J)  9  U( J ) ■ -WS( J) «SI N( ANOLE)  9  V( J) « -WS( J > «COS( ANGLE) 
CONTINUE 

CALCULATE  THE  GEOS TROPHIC  WINDS. 

CALL  OWINDS  (UO.VO) 

WRITE  (2)  IDATE, lOH  , NSTA, (STAN(L) , SP( L) , WD( L) , WS(L) , OC(L) , U( L) , 
1V(L),SI (L). LSI, NSTA). UO.VO 
NRWsNRW-t-1 

IF  (IDA.NE.19)  00  TO  165 
IF  ( IDA.NE. 19)  00  TO  169 

WRITE(6. IFMT5)  IDATE, lOH, ( STAN(L) , U(L) , V(L) , SI ( L) . L« 1 , NSTA) , UG, VO 
WRITE  (6,9)  (SP(L),L»1,NSTA) 

SAVE  THE  3 -HOURLY  OBSERVATIONS. 

DO  170  JsI.nsTA 

SPS(J)sSP(J)  9  W0S(J)sWD(J)  9  WS$(J)sWS(J>  9  OCS(J)sOC(J) 
STANS(J)sSTAN(J)  9  US(J)«U(J)  9  VS(J)«V(J)  9  SIS(J)sSI(J) 

CONTINUE 
UOSsUO  9  VOSsVO 
ISsO  9  lOKsSHYES 
CONTINUE 
00  TO  100 
IS=1 

IF  (I0K.EQ.3HYES)  00  TO  112 

WRITE  (2)  IDATES, lOHS.NSTA, (STANS(L) . SPS( L) , WDS( L ) , WSS( L) . OCS( L ) , 
1US(L),VS(L).SIS(L),Ls1 .NSTA), UOS, VOS 
NRWsNRWTI 

IF  (IDA.NE. 15)  OO  TO  112 
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URITE(6. IFMTS)  IDATES. lOHS. (STANS(L) , US(L> . VS(L) . SIS(L) < L«1 . NSTA) 
lUOS.VOS 
80  TO  112 

200  WRITE(6, IFMTSIIOATE. lOH  < (STAN(L) . U(L> . V( L) . SI ( L) .  L>  1 .  N8TA) < UG. 
1V0 

END  FILE  2  %  WRITE  (6,6)  NRW 

ST0P200 

END 

SUBROUTINE  OWINDS  (UOS.VOS) 

COMMON  /DAT/  PRS( 1 0) , STLAT( 10) . STLON( 10) . IU1 . I U2. I  US, Cl , C2, FC, 

1 AVLAT, AVLON,  DENOM,  STLT1 , STLT2. STLT3, STLN1 . STUN2. STLN3, COSLAT 
PR1  >  PRSCIUIXCI 
PR2  «  PRS(IU2)»C1 
PR3  «  PRS(tU3)»C1 

C«  CORIOLIS  FORCE  IN  UNITS  10  -5  SEC  -1 
C«  DENSITY  IN  UNITS  10  -3  O/CMS,  PRESSURE  IN  MB 

DPDLT  =  ({  STLN2  -STLN1 )  «  (PR3  -  PRl )  -  (STLN3  -  STLN1 )  » 

+  (PR2  -  PRl ))/( -DENOM) 

DPDLN  =  ((  STLT2  -STLT1 )  »  (PR3  -PRl)  -  (STLT3  -  STLT1 )  « 

+  {PR2  -  PRl )) /DENOM 

UOS  «  -(C2/FC)  «  DPDLT 
VOS  «  (C2/FC)  *  (DPDLN/COSLAT) 

C«  SPEED  UNITS  ARE  M  PER  SEC 
RETURN 


SUBROUTINE  STABLE  ( J.SAL.Sl . WSP.OC) 


THIS  SUBROUTINE  DETERMINES  A  STABILITY  INDEX  THROUGH  A  SERIES 
OF  CRITERIA  CONCERNINO  CLOUD  COVER.  WIND  SPEED.  AND  SOLAR  ELEVATION 
(SI«IJ«STABILITY  INDEX.  I ■ J>HOUR.  SAL>SIN  OF  SOLAR  ELEVATION. 
WSP«WIND  SPEED  (KTS).  OC«OPAQUE  CLOUD  COVER  (TENTHS)  > 

DIMENSION  IX(1S).HCOS(24) 

COMMON  /CSTAB/SP180.CP160.0AY 

DATA  HCOS  /-0.969S,-0.866.-0.7071.-0.5. -0.25S8.0.0.0.25S8.0.5. 
10.7071.0.666.0.9699.  1 .0.0.9609.0.666.0.7071.0.8,0.2586.0.0. '0.2506 
2. -0.5. -0.7071 . -0.666. -0.9699.  -1.0/ 

DATA  IX  /1.2«2.  1.2.3.2.4«3.4.3.2M/ 

I-J 

CC-OCsO. 1 
I  J«4 

CALCULATE  THE  SIN  OF  THE  SUNS  ELEVATION  ANOLE  (SAL) 

XT* - . 4337e«C0S  <0.01 72142* (10. 0+DAY ) ) 

XS=XT/S0RT(1 . 0+XT*XT) 

XC=XS/XT 

XSP*XS«SP180  *  SCP*XC«CP180 
102  HC«HCOS(I) 

SAL*XSP-I-HC«XCP 

IS  IT  OVERCAST  (CC.8E.0.9) 

IF  (CC.OE.0.9)  00  TO  310 

IS  IT  NIGHT  (SAL.LT.O) 

IF  (SAL. LT. 0.0)  GO  TO  305 

CALCULATE  DAYTIME  STABILITY 

IS  THE  SUN  WITHIN  19  DEGREES  OF  HORIZON  (SAL. LT. 0. 26) 

IF  (SAL.LT.O. 26)  GO  TO  310 

RADIATION  AND  CLOUD  AMOUNT  EFFECT  (XSOL* I NSOLATI ON) 

XS0L*(1 .0'0.5«CC)«SAL 
IF  (XSOL. GT. 0.30)  GO  TO  120 
IRAD*3 
GO  TO  200 

120  IF  (XSOL.OT. 0. 55)  GO  TO  130 
I  RAD* 2 
GO  TO  200 
1 30  I  RAO* 1 

WIND  SPEED  EFFECT 

200  IF  (WSP.OT.3.0)  GO  TO  210 
IWS*1  S  GO  TO  300 
210  IF  (WSP.OT.6.0)  GO  TO  220 
IWS*2S  GO  TO  300 
220  IF(WSP.0T. 10.0)  GO  TO  230 
IWS*3  S  GO  TO  300 
230  IF  (WSP.GT. 12.0)  GO  TO  240 
IWS*4  9  GO  TO  300 


240  lWS-9 

300  IEX»(  IWS-1  )«3+II«AD 
IJ>IX( lEX) 

90  TO  310 


CALCULATION  OF  NI3HTTIMC  STABILITY 


km 


309 


310 


IF  (WSP.9T.6.0)  00  TO  310 

IF  (CC.0E.0.3.A.WSP.0T.3.0)  90  TO  310 

IJ«9 

SI*IJ 

RETURN 

END 


SUBROUTINE  RECORD 

COMMON  /REC/  I 0( 80) , NF. NR. NP. LEN. lEOF 
DATA  I  EOF  /3H  NO/ 

1  FORMAT  (/1H  ,»EOF  NO.  ■»I3/) 

2  FORMAT  (1H  .«REC.  NO.  xlS/) 

3  FORMAT  (1H  .«P.E.  NO.  ■«I9/) 

BUFFER  IN  (1.0)  ( IOAT( 1 ) . IDAT(80) ) 

IF  (UNIT(I))  120.100.110 

100  NFaNFTI  S  PRINT  1 . NF  S  IE0F-3HYES  8  RETURN 
110  NP«NP+1  8  PRINT  3,NP 
120  NR«NR-t-1 

LEN«LEN0TH(1 ) 

RETURN 


I  DENT  CHAR 

CHARACTER  STRINO  TRANSFER  ROUTINE 

USE  FROM  FORTRAN  (FTN  COMPILER  ONLY) 

CALL  CHARCSOURCE.  I.  OESTIN,  J,  N) 

TRANSFER  A  STRING  OF  -N-  CHARACTERS.  STARTING  WITH  THE  I -TH  CHARACTER 
OF  -SOURCE-  TO  CHARACTER  POSITIONS  J. J+1 . . , . , J+N-1  OF  -DESTIN-. 

NOTE  THAT  THE  ARRAYS  -SOURCE-  AND  -DESTIN-  MAY  BE  THOUGHT  OF  AS 
CHARACTER  STRINGS  OF  ARBITRARY  LENGTH.  6  BITS  PER  CHARACTER.  10 
CHARACTERS  PER  WORD.  THUS  THE  1 1 -TH  CHARACTER  OF  THE  STRINO  IS 
ACTUALLY  THE  1 -ST  CHARACTER  OF  WORD  2  OF  THE  ARRAY.  ETC. 


ENTRY 

DATA 

SA2 

SA2 

SB1 

EQ 

SA4 

SA5 

NX3 

SA2 

SA2 

1X2 

PX2 

FX1 

UX1 

LX1 

SB3 

PX1 

DX1 

FX1 

SA4 

DX1 

SB4 

SA4 

SA2 

SA2 

1X2 

PX2 

FX1 

UX1 

LX1 

SB9 

PX1 

0X1 

FX1 

SA4 

0X1 

SB6 

SA2 

SA4 

SA3 

SA1 

BX7 

LX4 

LX7 

MX5 

SB2 

BX6 

BX7 


CHAR 

0 

AI-t-4 

X2 

X2 

B1  .BO. CHAR 
«1RA 

»1 .0E+1P0 

BO.XS 

A1+) 

X2 

X2-X4 

B0.X2 

X2/X3 

B7.X1 

B7.X1 

XI 

BO.  XI 

X1«XS 

X2-X1 

■6.0P0 

X1«X4 

XI 

>1RA 

AH-3 

X2 

X2-X4 

B0.X2 

X2/X3 

B7.X1 

B7,X1 

XI 

BO,  XI 

X1«XS 

X2-X1 

*6.0P0 

X1>X4 

XI 

A1 

X2TB3 

A1T2 

X3+B5 

XI 

B4.X4 

B6.X7 

6 

BO-1'60 

X4*X6 

-X5*X7 


PROORAM  XFORM  C.NPUT,  OUTPUT,  TAPE16.  TA^ES,  PUNCH) 


THIS  PROGRAM  CALLS  OTHER  ROUTINES  FOR  MAJOR  OPERATIONS 
DIMENSION  X( 1000, 20) , XM( 20) . MBR( 6) , TEMPI 20) , AC 20) 
1,D(20),Z(20,20),WK(20) 

NV'AR  =  NUMBER  OF  VARIABLES  (TWICE  THE  NUMBER  OF  WINDS 
(INCLUDING  6E0STR0PHIC) ) 

NREC  =  NUMBER  OF  RECORDS  (HOURS  OF  DATA) 

NSITE  =  NUMBER  OF  SITES  (NVAR/2)-l 
READ  SI.MRECS 

31  F01:v.Tk3I4) 

PRINT  32,  NRECS 

32  FORMAT ( IX, 8H  NRECS=  ,14) 

README)  IDA-'E,  IHR.MSITE 
RE'.MMD  IS 
NVAR-2t(iVSITE+I  ) 

PRINT  1601,  NVAR, NSITE 
1S01  FORMAT! IX, 7H  NVAR=  ,I6,6H  NS1TE=  ,16) 

SETTING  CONTROL  PARAMETER  FOR  MATRIX  OPERATING  ROUTINES  IN  SUB1 

NBRM  )=MVAR 

NeR(2)=NRECS 

Nb  V.S)=:732 

Ne.^(4)  =  1 

NER(5)=1 

NBR(6)=0 

IX=732 

SUB1  READS  INPUT  DATA,  CALCULATES  EIGENVECTORS,  INNER  PRODUCTS,  ETC, 
CALI.  SUB1 (X.XM.NBR, NVAR, NSITE, NRECS, IX, A, D, 2. WK, TEMP) 


ooo  oo  ooooooo  oo  oooooo 


SUBROUTINE  SUB1  (X.  XM,  NBR,  NVAR,  NSITE.NRECS,  IX,  A,  0,  7  '-IK,  TEMP) 

D I  MEt  IS  !  C  ’vl  X  (  73<- .  N'-A^; )  ,  XM  (  NVAR )  ,  NBR<  6 ) .  TEMP  (  N  y  AR )  , 

1  VCV<  1  00  ) ,  A  (  ?0 )  ,  D  ( '  VA  R  ,  7  C  fJVAR,  NVA  R )  ,  WK  ( RO ) 

DIMEMEICN  SUM"' ’0) , SUMVC 10) , 1STAB< 10) 

THIS  SUE  ROUT  1 1', 'E  READS  INPUT  WIND  AND  STABILITY  DATA,  CALCULATES 
COVAEIAMOr  MATRIX,  OBTAINS  EIGENVECTORS  OF  CCVARIA^'CE  MAT.TIX,  AND 
CALLS  A  ROUTINE  TO  OBTAIN  TRANSFORMED  DATA. 

MATSMB-NO.  OF  SUEMATRI CES  READ- -GENERAL  4/YEAR 

MATSUB-4 

MVP=MS!TE+1 

NCAS"S=0 

IPRINT=0 

DO  150  NN=1,MAVSUB 

AT  6  OBS/DAY  THEf’E  ARE  i>9?8  OPS/LFA®  YEAR  ?9?8/4  =  732 
DO  100  L=1 ,732 

REAO(IG)  IDf  'F,  IKR.MSITE,  (  DUfll  ,  D'.IM?,  DI’MO,  .  DUMS, 

isur':u(j),suMv(J),  istab(J),  J-i  ,msite),ug, vg 

IFtL.LE.  10) 

1  PR  I  NT  1  600 ,  I  date  ,  I  HR ,  MS  I  TE ,  ( SUMU  (  J  )  ,  SUf'V  (,)),)  STAE  (  J  )  ,  J  =  1  ,  C2 )  , 
1UG, VG 

1600  FORMAT ( IHO, I  6 . I  2. I  3/ ( 3F1 0 . 2) ) 

READING  Il'PUT  DATA 

I  DATE  =  D/1T.1  (YP  'MO/DA) 

I  HR  =  .HOUf;  or  DAY  (LST) 

SUMU,  SITU'  =  U.V  COlPOr'r'ITS  OF  WIMO  (M/S) 

ISTA?  s  F.^'^OUli. /GirFCRD  S':Af.  i'..lTY 
UG,VG  ’  GEO'TP.OT-KIC  '.MMD  CMTOMENTS  (M/S) 

IF  (EOr( 1 C) . ME. 0)GOTO  S3 

IFCNCAAEJ  ,GT.  NRECS)GOT(<  SS 

NCAiES-NC  ASESH 

SUMU ( MVP )=UG 

SUM  A  (MVP)  -^VG 

DO  100  ! » 1 , MV? 

ENTERING  V'IND  DATA  INPUTS  N  MATRIX  X 
NPl  *2*  (  I  -1  /  'll 
NPIP1  =;'ir  H  1 
XIL,NPI  )=r  U1U'(  I  ) 

X(L,NP1P1  ;=S('MV(  I  ) 

PRINT  SOFT,  L, NPl , MPIP1 , I .X(L, NPI ) . X(l . NPIFI ) 

200?  FORM,AT(  IX,  rL^*,  M, rPI->',i4,»  NPI  PI  =*  ,  1  4  ,  e  ,'(=>■, 

12n0. 2) 

IPR.MT=:1PRINTM 


1 OC  COWT I NUE 
S9  CONTINUE 

CALL  PECOVrUX, I  X, NBR, TEM»  XM, VCV, lER) 

C  *  »  »  »  *  *  r  «■  *  i"  T  t'  1-  “•  y  ♦  T  »  »  K  r  «  *  «■ »  T  r  r  *  <•  s-  *  r  r  V  -  »■  'S  V  r  ■>■  *  ?•  «  V  » ”  r'  ■ 

C 

C  THE  FOLLOWING  DESCRIPTION  OF  SUBROUTINE  BCVCOVM  (  X ,  I  X  ,  MB? ,  TEM.^,  XM,  VC 
C  V,IEF;)  is  FROM  THE  I  MEL  M.’.NUAL. 

C 

C  CALCUl.ATES  MFAVS  AND  V.AR  I  AMCE /COV.ARl  ANCF  MATRIX 

C  X - ON  INPUT  X  IS  A  N3R(31  BY  MBR(1)  SUBMATRIK  OF  TPT  ri,''TR!X  (CALL 

C  XX)  OF  DATA  FOR  WHICH  MEANS,  VARIANCES  AMD  COVAR I  OR  CO.TREC 

C  TED  SUMS  or  SQUARES  AND  CROSS-PRODUCTS  ARE  DESIRED.  THE  LAST  E'C.XrMR 

C  IX  IN  XX  MAY  HAVE  FEWER'  THAN  NBR(3)  ROWS. 

C  ON  OUTPUT,  THE  ROWS  OF  X  HAVE  BEEN  ADJUSTED  BY  THE  TEMPORARY  MEANS 
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IX---ROW  DIMENSION  OF  X  EXACTLY  AS  DIMENSIONED  IN  THE  CALLING  PROGRAM. 

NBR---1NPUT  VECTOR  OF  LENGTH  6.  NBR( I )  CONTAINS.  WHEN 
l>1,  NUMBER  OF  VARIABLES 

I >2,  NUMBER  OF  OBSERVATIONS  PER  VARIABLE  IN  XX 

1^3.  NUMBER  OF  OBSERVATIONS  PER  VARIABLE  IN  EACH  SUBMATRIX  X. 

NOT  INCLUDING  THE  LAST  SUBMATRIX  WHERE  THE  NUMBER  MAY  BE 
LESS  THAN  OR  EQUAL  TO  NBR(3).  HOWEVER,  NBR(3>  SHOULD  BE 
THE  SAME  FOR  ALL  CALLS. 

1=4.  THE  NUMBER  OF  THE  SUBMATRIX  STORED  IN  X. 

1*5,  THE  TEMPORARY  MEAN  INDICATOR.  IF  NBR(5)=0.  THE  USER  SUPPL 
LIES  TEMPORARY  MEANS  IN  TEMP.  OTHERWISE.  THE  1ST  ROW  OF 
XX  (OR  FIRST  OF  X  WHEM  NBR(4>*1)  IS  USED. 

1*6.  THE  VCV  OPTION.  IF  NBR(6)*0.  VCV  CONTAINS  THE  VARIANCE- 
COVARIANCE  MATRIX.  OTHERWISE  VCV  CONTAINS  THE  CORRECTED 
SUMS  OF  SQUARES  AND  CROSS-PRODUCTS  MATRIX. 

TEMP---INPUT  VECTOR  OF  LENGTH  N6R( 1 ) .  IF  NBR(5)*0  TEMP  MUST  CONTAIN 
THE  TEMPORARY  MEANS  WHEN  NBR(4)*1  OTHERWISE  TEMP  IS  WORK.  STOR 
AGE. 

XM---OUTPUT  VECTOR  OF  LENGTH  NBR(I)  CONTAINING  THE  VARIABLE  MEANS. 

VCV- --OUTPUT  NBRd)  BY  NBR< 1 )  MATRIX  STORED  IN  SYMMETRIC  STORAGE 

MODE  REQUIRING  ( NBR( 1 ) «NBR( 1 )+1 ) ) /2  STORAGE  LOCATIONS.  VCV  CONT 
AINS  THE  VARIANCE/COVARIANCE  MATRIX  OR  THE  CORRECTED  SUM  OF  SQ¬ 
UARES  AND  CROSS  PRODUCTS  MATRIX.  AS  CONTROLLED  BY  VCV  OPTION. 
NBR(6) . 

IER---ERRaR  PARAMETER,  TERMINAL  ERROR  *12S+N.  N=1  INDICATES  THAT 

NBR(4)  IS  LESS  THAN  1  OR  THAT  NBR(3) « (NBR(4 ) - 1 )  EXCEEDS  NBR(2) 
N*2  INDICATES  THAT  NBRd)  IS  LESS  THAN  1  OR  NBR(2)  IS  LESS  THA 
N  2  OR  THAT  NBR(3)  EXCEEDS  NBR(2>. 


NBR(4)*NN-t-1 
150  CONTINUE 

PRINTING  MEANS  AND  NUMBER  OF  INPUT  DATA  SETS 
PRINT  12, (XM( I ), 1*1 .NVAR) 

12  FORMAT d HO, 16HVECT0R  OF  MEANS  ,eE12.5) 

PRINT  Se.NCASES 

86  FORMATdHO,  16HNUMBER  OF  CASES  .15) 

OBTAINING  (FROM  SYMMETRIC  STORAGE)  AND  PRINTING  THE  VARI ANCE/COVARI ANCE 
MATRIX  (VCV)  AND  THE  ERROR  PARAMETER 
DO  10  1*1, NVAR 
DO  1000  K=1,NVAR 
1000  A(K)*0. 

DO  111  J=1,NVAR 
IF  (J  .GT. I )K-( J»( J-1 )/2)+l 
IF  (J  .LE. I )K*( I «( I -1 )/2)+J 
111  A(J)*VCV(K) 

10  PRINT  14. (A(K),K»1 ,NVAR) 

14  FORMAT! 1  HO, 18HC0VAR I ANCE  MATRIX  .SE12.5) 

PRINT  15, lER 

15  F0RMAT(1H0,21HERR0R  PARAMETER  IS  *  .15) 

COVARIANCE  MATRIX  HAS  BEEN  WRITTEN.  NOW  DO  EIGENVECTORS 

N*IZ=NVAR 

IJ0B*1 

CALL  EI0RS(VCV,N, IJOB.D.Z, IZ.WK, lER) 


THE  FOLLOWING  DESCRIPTION  OF  SUBROUTINE  El ORS( A, N. I  JOB. D. Z. I Z, WK, I E 
R)  WAS  EXTRACTED  FROM  THE  IMSL  MANUAL. 


61 


IT  CALCULATES  EIGENVALUES  AND  EIGENVECTORS 
OF  A  REAL  SYMMETRIC  MATRIX. 

VCV - THE  INPUT  SYMMETRIC  MATRIX  OF  ORDER  N,  STORED  IN  SYMMETRIC  STOR 

AGE  MODE  (OBTAINED  FROM  BEVCCVM) . 

N-- -ORDER  OF  INPUT  MATRIX  VCV. 

I  JOB - INPUT  OPTION  PARAMETER.  WHEN 

IJOB  =  0,  COMPUTE  EIGENVALUES  ONLY.  I JOB= 1  - -El GENVALUFS  AND  EIGEN  V 
ECT6RS  IJOB=2- -E-VALUES, E-VECTS  AND  PERFOPMANCE  INDEX.  IJ0B=3-- 
PERFCrM  INDEX  ONLY  P  ERF0.7M  INOX  RETURNED  IN  WKCn--LT  1  =  WELL,  1 
TO  100  =  SAT  i  ■’■ACT.,  6T  1 00  *  POORLY. 

D - N-Omr-'DIO.  AL  VECTOR  OF  E-VALUES. 

Z - N  BY  N  MA  F;;x  OF  E-VECTORS  OF  VCV.  E-VECTOR  IN  COLUMN  J  CORRESPO 

NOS  TO  E -VALUE  J.  D(J). 

IZ - ROV  DIMEN  OF  Z  IN  CAILINC  PROGRAM.  IZ  MUST  BE  GE  0. 

WK - WORK  AREA  LENGTH  I.TE^rNDS  ON  I  JOB  I  JOB=  1  OR  ?,  LENGTH  GE  N. 

I  JOB-2,  LENGTH  GE  N(N-i-1)  /2+N 

IER---ERR3,T  PArAMETER.  TERMINAL  ERROR  IER=12e+J,  I ND I  OATES  FAILU 
RE  TO  CONVERGE  ON  EIGENV.'LUE  J.  E- VALUES  AMD  E-VEC“CRS  TC  J-1  ARE  C 
ORPECT,  eul  E-VAI.UE.3  APE  uNOF'DrAE  ..i. 

**:*-?:**«  r  *  »  K  *  -  K  y  rf  *  f  »■  r  yr  ?•;-  v  !'  r  »■  f  rt ::  »r s  n:  r  s:  r  ^  K  r-  r"  r- :  ft  rt  »!:  K  s:  :'r 

PRINTING  AND  PLN'CMIHG  EIGENVECTORS 
DO  16  I = 1 , N 

16  PRINT  32, (2<I,J),J=1,N) 

32  FOR'iAT;  1H0  23Hr:ATRIX  OF  EIGENVECTORS  ,  8E  I  2 . 5/2Dn ,  SE 1  2 . 5 ) 

DO  310  I = 1 , N 
PUNCH  3001 ,  I 
PRI N"  3001 ,  I 

;  PRINTING  AND  PUNCHING  EIGENVECTOR?  (XI 00  TO  CONVERT  TO  CM /SEC) 

3001  FORMAT  <C.X,I2) 

06  310  J*2.  N,  2 
JMONE  =  J-1 

UCM.’S  =  100.  *  Z (JMONE.  I  ) 

VCNFS  =  IDO,  *  Z( J, I ) 

PUNCH  30C?,  UCNF3,  VCNPS 
PRINT  OCOE,  UCMFS,  VCMIS 

3002  FORMAT  (2F10.2) 

310  COKTINUE 

I  =  N+1 
PUNCH  3001,  I 
PRINT  3001,  I 
D(3  320  J  =  2,N,2 

:  PRINTING  '.MD  PUNCHING  MEAN  VECTORS  (X100  TO  CC?K'VE';T  TO  CM/SEC) 

JMONE  =  J-1 

UCMEAN  =  100. -^XMC  JMONE  ). 

VCMEAN  =  lOO.KXNiC  J  ) 

PUNCH  300?,  UCMEAN,  VCMEAN 
ppiMT  30D?,  UCMEAN,  VCME.s.N 
320  C  '  i-.'T  I  I'lUE 

PR  INI  EIGENVAL-  ES 
PRINT  1 12, (D(KI ,K= 1 , NVAR) 

112  FtlRMATI  IN.',  10'-i:i,ID!:i-.|\  'l.i)F  ARE  ,eE12.B) 

PI  I  NT  15,  IE" 

:  EIGE'iVECTCR  M.'.TRIX  I'AS  BEEN  WRITTEN,  NDW  DO  I MNFP  FROD'iCTS 

REWIND  16 

:  SUB2  CALCULATES  INNER  PRODUCTS  OF  INPUT  DATA  SETS  WITH  EIGENVECTOR^ 

CAL  I  SUB? ( 7 , NVAR , MS  I TE , XM , NREOS ) 


RETURN 


SUBROUTINE  SUB2(Z, NVAR. NSI TE, XH. NRECS) 

2  =  MATRIX  OF  EIGENVECTORS  OF  DATA  COVARIANCE  MATRIX 
NVAR  =  NUMBFR  OF  ELEMENTS  IN  INPUT  DATA  SETS  (WIND  COMPONENTS) 

XM  =  MEANS  OF  INPUT  DATA 
NRECS  =  NUMBER  OF  INPUT  DATA  SETS 
NSITE  =  NUMBER  OF  SITES  USED 
SUMU.SUMV  a  OBSERVED  WIND  COMPONENTS 

D I  MENS  I  ON  I  STAB ( 1 0 ) , Z ( NVAR , NVAR ) . XM ( NVAR ) , 

1C(20).SUMU( 10),SUMV( 10),X0(20) 

DATA  C/20*( -9S9. )/ 

NCASES=0 

DO  150  L=1< NRECS 

READING  INPUT  DATA- -DATE,  HOUR  (LOCAL  TIME)  AND  NSITE  GROUPS 
OF  THREF  (U,V, stability  CLASS).  FINAL  PAIR  OF  DATA  ARE  GEOSTROPHIC 
U  AMD  V. 

READdS)  IDATE,  IHR, NSITE.  ( DL'MI  ,  DUM2,  DUM3.  DUM4 ,  DUMB. 

1 SUMU( J ) . SUHV( J ) ,  I STABf  J) . 1 , NSI TE) , U3. VG 
IF  (EOF(  IG)  .NE.OGOTO  99 
NSP1  =  NSITE+I 
SUMUCNSPl )=UG 
SUMVCMSPI )=VQ 
NCASFS=NCASES+1 
DO  100  I=1.NSP1 
J*2»( I -1 )+1 
JP1»J+1 

GETTING  DEVIATION  FROM  MEAN  FOR  EACH  INPUT  WIND  DATUM 
XD(  J)::SUMU<  I  )  -XM(  J) 

XD(JP1 )=SUMV( I )-XM(JP1  ) 

100  CONTINUE 

COMPUTE  INNER  PRODUCTS.  C(K)  *  INNER  PRODUCT  OF  INPUT  WIND  DATA 
(DEVIATIONS  FF3M  MEAN'  SET  WITH  KTH  EIGENVECTOR 
DO  120  Ksl.NVAR 
TERM=0. 

DO  130  J=1 ,NVAR 
TEFCI- TERM+XO  (  J )  »  Z  ( J ,  K  ) 

130  CONTINUE 
C(K)=TERM 
120  CONTINUE 
CONTINUE 

WRITE  DATE, HOUR, INNER  PRODUCTS  AND  STABILITIES 
WRITE! 3)  IDATE, IHR, NVAR, NSITE, (C( J), J=1 , NVAR) , 

1 ( ISTAB( J) , J=1 .NSITE) 

IF(L.LT.30)  PRINT  75, ( C( LF) , LF= 1 , NVAR) 

75  FORMAT( IX, 10F10.2) 

150  CONTINUE 

PRINT  le.NCASES 

18  FORMAT! 1  HO, 22HNUMBER  OF  DAYS  READ  =  ,15) 

99  END  FILE  3 
REWIND  3 
RETURN 


PROGRAM  CHPLX3 


C 

C**THIS  FORM  OF  PROGRAM  COMPLEX  COMPUTES  TOPOGRAPHICALLT  INDUCED 
C*  WINDS  BY  MAXING  THE  ORIGINALLY  ANALYZED  WINDS  NONDI VE RGENT . 

C* - FEB  '85 

c  this  form  replaces  inwno  with  wxanal  which  reads  in  wind 

C  SOUNDINGS  AND  NWS  DATA  AND  MAKES  THE  INITIAL  WIND  ANALYSIS. 

C*  THIS  FORM  USES  DIRECT  VECTOR  ALTERATIONS  IN  SUBROUTINE  BALS. 

C  NEW  FEATURES  INTRODUCED  IN  '84  -  '85  ARE: 

C  FOR  HIGH  TERRAIN  SOME  SIGMA  SURFACES  INTERSECT  THE  GROUND/ 

C  THIS  IS  CONTROLLED  BY  TERLIM  IN  SUBR  TOPO.  ALSO/ 

C  WIND  COMPONENTS  AT  SPECIFIED  POINTS  CAN  BE  HELD  CONSTANT  IN  BAL5. 

C  BY  R.  ENDLICH/  F.  LUDWIG/  K.  NITZ/  C.  MAXWELL/  SRI  INTERNAT. 

C  333  RAVENSWOOD  AVE  MENLO  PARK  CALIF  94025  PHONE  415-859-3395 

C 

DIMENSION  8 (50/26 )/LPRNT<10)/ 16 (50/26) 

COMMON/RARS/RHS(50/26/6) 

C0MM0N/CSFC/SFCHT(50/26)/SIGNA(6) 

COMMON/UARS/U( 50/ 26/ 6)/ UA( 50/26/6) /V(50/ 26/6) /VA( 50/26/6) 
C0NN0N/HARS/W(S0/26/6)/HA(50/2e/6) 

C0MM0N/PARNS/2T0P/0S/0SIGNA/NLVLNl/XHT1/XHT2/Xl/yi/ 

1  X2/r2/UG/VG/RATIO/TOSI 

COMMON  /CVOS/  RCM/RNF/IV/OSCRS/IXCRS/ jrCRS/IXMED/ JVMED/ 

♦  IXFIN/JYFIN 

COMMON/CTOP/  MCRS/NCRS/MMEO/NMEO/MFIN/NFIN/NGRID 
COMMON/LIMITS/NCOL/NROW/NLVL/NCOLMI/NROWMI 

COMMON  /BLHT/  BLT (S0/26)/HSITE/  AVTHK/  SLFAC/STHK/BLGRX/BL6RV 

COMMON  /SITE/  IXS/  JYS/  THSITE/  IGRIO 

COMMON  /ANCHOR/  SLAT/  SLNG 

COMMON  /GROUND/  TERLIM 

COMMON  /PRLIM/  11/  12 

INTEGER  ONI 

C  SET  LIMIT  ON  NO.  OF  ITERATIONS  IN  SUBR.  BAL 
DATA  NIT/15/ 

C  SET  NUMBER  OF  VERTICAL  LEVELS 
DATA  NLVL/6/ 

C  SET  SIGMA  LEVELS  (VERTICAL  COORDINATES) 

DATA  SIGMA/. 00/  .10/  .25/  .45/  .70/  1.00/ 

C  SET  NO.  OF  GRIDS  TO  BE  USED  (1  FOR  SANTA  BARBARA) 

DATA  NGRIO/1/ 

C  SET  NO.  COLS/ROWS  FOR  COARSE/MEO/FINc  GRIDS 

DATA  MCRS/SO//NCRS/26//MMEO/24//NMEO/23/ 

DATA  MFIN/24//NFIN/24/ 

C!SET  GRID  INTERVALS  IN  KM 

DATA  OSCRS/4.0//  OSMEO/2.0//  OSFIN/1.0/ 

C  SET  RATIOS  OF  GRID  INTERVALS/  COARSE  TO  MED.  /  MED.  TO  FINE 
DATA  RCM/2.0//  RMF/2.0/ 

C  SET  height  (METERS)  OF  ANCHOR  POINT  (REFERENCE  POINT) 

DATA  HSITE/  0.0/ 

C  SET  LATITUDE/  LONGITUDE  OF  ANCHOR  POINT 
DATA  slat/33.91//  SLNG/-1 20.63/ 

C  SET  ANCHOR  POINT  LOCATION  (IX/JV)  IN  EACH  GRID 

DATA  IXCRS/  1//JYCRS/  1 // I XMEO/10// J YMED/  7/ 

DATA  IXFIN/1 2//JYFIN/11/ 

C  SET  LIMITS  FOR  PRINTING  COLUMNS 
DATA  11/9//  12/41/ 

C*  IN  ALL  ARRAYS  POINT  (1/1)  IS  AT  Sw  CORNER.  X  INCREASES  TO  EAST/  Y 
C  TO  N.  INDICES  ARE  I/J/K  -(COL/ROW/LYR)  WITH  LIMITS  NCOL/NROW/NLVL 
C  UNITS  USED  IN  COMPUTATIONS  ARE  M/  G/  SECONDS 

1  F0RMAT(4I5/F10.2) 

2  FORMAT  (/'  FINAL  RESULTS  AT  ANCHOR  PT'/2X/*K  UA 


’ -V.  \ 


♦  REL.  HTS.'/) 

3  F0RMAT(1X/I2#2X^2F10.2#P11 .3^F13.1 ) 

4  FORMATdOX, 'TOTAL  TIME  ='#E12.3) 

5  FORMAT  (2X/I10#2X/3F10.2»F11 .3/F10.1) 

7  FORMAT<2X/5ei2.3) 

3  FORMAT(6IS^2F10.2) 

9  FORMAT  {2I5/2F10.2/I5/F10.0/F5.1#F8.0) 

10  FORMAT  <1X#I2/2X/2F10.2/F10.1) 

PRINT  9013/  MCRS/NCRS/MMEO/NMED 
PRINT  9014/  DSCRS/  OSMEO/  OSFIN 

C  READ  BOUNDARY  LAVER  VARIABLES  (USED  IN  SETBLT) 

REAO(2/9022)  AVTHK/  SLFAC/  STHK/  ONI/  8LGRX/  BLGRV 
PRINT  9025/  AVTHK/  SLFAC/  STHK/  ONl/  BLGRX/  BLGRV 
C  UNITS  ARE  METERS 

C  READ  terrain  INTERSECTION  (USEO  IN  TOPO)/  DATE/  HOUR 
REAO  (2/9023)  TERLZM/  lOATE/  IHOUR 
PRINT  9026/  TERLIM 
PRINT  9027/  lOATE/  IHOUR 

C*  READ  PRINT  INDICATORS.  TO  PRINT  LEVEL  K  USE  LPRNT<K)  >  1. 
REA0(2/9030}  (LPRNT(K>/Ks1/NLVL) 

PRINT  9035 

PRINT  9030/  (LPRNT(K)/Ke1/NLVL> 
c  LOOP  thru  ngrio  systems.' 

00  1040  IGRIO  «  l/NGRID 
IF  (IGRIO  .EQ.  2)  PRINT  9005 
IF  (IGRIO  .EQ.  3)  PRINT  9006 
C  SET  CONTROLS  FOR  PROPER  GRID 

IF  (IGRIO  .NE.  1)  GO  TO  11 

IXS-  IXCRS 

JVS*  JVCRS 

NCOL=  MCRS 

NROWs  NCRS 

0S»  OSCRS 

11  CONTINUE 

IF  (IGRIO  .NE.  2)  GO  TO  14 

IXS»  IXMEO 

JVS=  JVMEO 

NCOLs  NNEO 

NROW=  NNEO 

0S=  OSMEO 

14  CONTINUE 

IF  (IGRIO  .NE.  3)  GO  TO  15 

IXS=  IXFIN 

JVS=  JYFIN 

NCOL=  NFIN 

NROW«  NFIN 

OSS  OSFIN 

15  CONTINUE 

C  REAO  TERRAIN  HEIGHTS  FOR  ALL  GRIDS  USING  TOPO 
NUN1  s  0 

IF  (IGRIO  .EQ.  1)  CALL  TOPO(NUMI) 

0Ss0S*1.0E3 
NC0LM1»NC0Lr1 
NROWNIsNROU-1 
NLVLN1»NVLV-1 
TOSI  =  1./(2.0*0S) 

C  SET  BL  TOP  AND  SIGMA  SURFACES 
CALL  TOPO(IGRIO) 

C  PRINT  ♦  PLOT  surface  HEIGHT 


00  53  JP  =1/NR0W 
00  53  IP  =1/NC0L 

B(IP,JP)  =  SPCHTC1P#JP) 

IB<1P/JP)=  JMINKBdP^JP)) 

53  CONTINUE 

DO  54  JP  sl^NROW 

JR  *  NROW*  1  “JP 

54  PRINT  9105/  (  IB ( IP/ JR ) /IP«I1 /1 2  ) 

55  CONTINUE 

C  *  *  •  •PLOT  GEOMETRIC  HEIGHTS  OF  SELECTEO  SIGNA  SURFACES 
DO  511  K  >1/NLVL 
IF  <LPRNT(K}  .NE.  1)  GO  TO  511 
00  627  JP  •  1/NROW 

00  627  IP  •  1/NCOL 

BdP/JP)  =  RHSdP/JP/R) 

IBdP/JP)s  JNINT(BdP/JP)) 

527  CONTINUE 

PRINT  571/K 

571  FORMAT  (lHl/'  HEIGHT  ABOVE  TERRAIN/  M/  LVLs*I3/) 

00  528  JP«1/NfiOM 
JR  «  NROH*  1  -JP 

628  PRINT  9105/  dBdP/JR) /IP«I1/I2  ) 

511  CONTINUE 

C*  READ  ANO  ANALYZE  WIND  DATA  USING  WXANAL 

C*  MAKE  INITIAL  WIND  ANALYSIS  ON  MESH 
CALL  WXANALdGRIO) 

C  •  *  •  •  •  •PLOT  OBSERVED  VELOCITY  COMPONENTS  AT  SELECTEO  LEVELS  •  • 
00  211  K  «1/NLVL 
IF  (LPRhT(K)  .NE.  1)  GO  TO  211 
00  46  J  •1/NROU 
00  46  I  ^l/NCOL 

IBd/J)  «  JNINT(  U<l/J/K)*10.) 

46  CONTINUE 

PRINT  271/K 

271  FORMATdHi/'  U  COMPONENT  OECINETERS/SEC/  LVL  •  '14/) 

00  56  JP  «1/NR0M 

JR  «  NR0H4  1  -JP 

56  PRINT  9105/  (  IBd/JR)/I«I1/I2  ) 

211  CONTINUE 

00  212  K  sl/NCVL 
IF  (LPRNT(K)  .NE.  1)  GO  TO  212 
00  48  J  «1/NR0N 
00  48  I  cl/NCOL 

IBd/J)  «  JNINT(  Vd/J/K)^10.) 

48  CONTINUE 

PRINT  272/K 

272  F0RNAT<1H1/'  V  COMPONENT  OECIMETERS/SEC/  LVL  »  '14/) 

00  58  JP  sl/NROM 

JR  »  NR0N4  1  -JP 

58  PRINT  9105/  (  IBd/JR)/I*I1/I2  ) 

212  CONTINUE 

IF  (IGRIO  .GT.  1)  GO  TO  226 
C  COMPUTE  VERTICAL  MOTION  N  ALONG  SIGMA  SURFACES 
00  220  K  •2/NLVL 
00  220  I  >2/NC0LMl 
00  220  J  •2/NR0WM1 
Wd/J/R)  •  0.0 

IF  (RHS<I/J/K)  .LE.  0.0)  GO  TO  220  !  FOR  TERRAIN  LIMIT 

HSIGE*SFCHTd-»1/J)  •  RHSd^1/J/K) 

MSICW»SFCHTd“1/J)  *  RHSd“1/J/R) 

MSIGN*SFCMTd/J+1)  ♦  RHSd/J^I/X) 


MSIGS  =  SFCHT<1,  J-1  )  ♦  RHSdirJ'I^K) 

OmOX*(MS1&E  -  MSIGM)  *  TOSl 
OHOYs(HSIGN  -  HSIGS)  *  TOSI 
U(I/J/K)sU<I/J/K)  *  OHOX  *  V<I#J/R)  *  OHOV 
220  CONTINUE 
226  CONTINUE 

IF  (IGRIO  .EO.  1)  PRINT  9050 
IF  (IGRIO  .EQ.  2)  PRINT  9055 
IF  (IGRIO  .EO.  3)  PRINT  9056 
PRINT  9020 

9320  FORMAT  (/'  ORIGINAL  0*  V,  H,  REL.  MTS  AT  ANCHOR  PT.'/) 

PRINT  3/(K/  UdXS# JVS/K)«  VdXS#jyS/K)/  UdXS^JTS/K)/ 

2  RHSdXS/JYS/K)«KsWNLVL} 

00  213  K  s1#NLVL 
IF  (LPRNT(K)  .NE.  1)  GO  TO  213 
PRINT  273«K 

273  FORMATdMl^*  U,  CM/SEC  #  LVL  **I3/) 

00  60  JP  »  I^NROH 
00  60  IP  >  1/NCOL 
ISdP/JP)  -  JNlNT(H(IPyJP^K)*100.> 

60  CONTINUE 

00  65  JP  »  1#NR0N 
JR  a  NROM+  1  -JP 

65  PRINT  9105/  (  IB(IP/JR}/IPaI1/I2> 

213  CONTINUE 

C  CALL  SUBROUTINE  TO  HAKE  MINOS  NONOIVERGENT 
CALL  6ALS(N1T) 

00  60S  lal/NCOL 
00  60S  Jal/NROW 
00  60S  Kal/NLVL 

UA<I/J/K}«U(I/J/K) 

VA(I/J/K)aV(I/J/K) 

HA<I/J/R)«W<I/J/K} 

605  CONTINUE 

C  •  •  •  aPLOT  AOJUSTEO  VELOCITT  COMPONENTS  AT  SELECTED  LEVELS 
00  611  K  al/NLVL 
IF  (LPRNT(R)  .NE.  1)  GO  TO  611 
00  615  J  a  1/NROW 
00  615  I  a  1/NCOL 

IBd/J)  a  JNINT(UAd/J/K>*10.) 

615  CONTINUE 
PRINT  671/K 

671  FORMAT  (1M1/'  AOJUSTEO  U  COMPONENT/  DECIMETERS/ SEC/  LVLa'I3/> 

00  622  JPal/NROH 

JR  a  NROMa  1  -JP 

622  PRINT  9105/  (  IBd/ JRI/ IaI1/I2  } 

611  CONTINUE 

00  612  K  «1/NLVL 
IF  (LPRNKK)  .NE.  1)  GO  TO  612 
00  616  J  a  1/NROH 
00  616  I  a  WnCOL 

IBd/J)  a  JNlNT(VAd/J/K)*10.) 

616  CONTINUE 
PRINT  672/K 

672  FORMAT  <lHl/*  AOJUSTEO  V  COMPONENT/  OECIMETERS/SEC/  LVLa‘13/) 

00  626  JPal/NROM 

JR  a  NROWa  1  -JP 

626  PRINT  9105/  (  IB(I/ JR)/IaI1,I2  ) 

612  CONTINUE 

IF  (IGRIO  .EQ.  1)  PRINT  9050 


IF  (IGRIO  .EQ.  2)  PRINT  9055 


IF  (IGRID  .EC.  3)  PRINT  9056 
PRINT  2 

PRINT  10^(K^UA<IXS/JYS«K)/VA(IXS/JVS^II)/RHS(IXS/JVS/K)/ 

♦  K=1/NLVL) 

00  700  K  =2#  NLVL 
00  690  J  -  NROW 
JR  =  NROW  ♦  1  -J 

690  WRITE  <3/9065)  (UA ( 1/ JR/K) /I=1 /NCOL) 

00  695  J  »  1/  NROW 
JR  *  NROW  ♦  1  -J 

695  WRITE  (3/9065)  <VA(I/ JR/K)/I-1/NC0L) 

730  CONTINUE 

1040  CONTINUE 

1050  CONTINUE 

9305  FORMAT  <1H1/*  **BEGIN  COMPUTATIONS  FOR  MEDIUM  GRID**'/) 

9006  FORMAT  (1H1/*  **8EG1N  COMPUTATIONS  FOR  FINE  GRID**'/) 

9013  FORMAT  </'  COARSE  GRID  E-W'I5/'  S-N'I5/*  MEDIUM  GRID  E-W*I4/' 

♦  *14/) 

9014  FORMAT  (/'  GRID  INCREMENTS  IN  KM/  C0ARSE*'F4.1/'  NE0.b'F4.1/' 

♦  FINE*'F4«1/) 

9322  FORMAT  <F10.1/F10.2/F10.1/I5/2F7.1) 

9323  FORMAT  (F10. 1/218) 

9325  FORMAT  (//'  AVER.  BNOV.  THICKNESS  IN  M  *'F8.1# 

♦  'SLOPE  FACTOR  FOR  8L  T0P«'F4,1/'  MIN.  THICKNESS»'F7.1/ 

♦  /'  OAYl  NITE2  IN0ICAT0R*'I3/'  ft  LTR  GRADIENT  TD  EAST/  M«'F7.1 

+  '  TO  NORTH  ='  F7.1/) 

9326  FORMAT  </'  TERRAIN  INTERSECTION  MILL  OCCUR  FOR  HTS 

♦  AB0VE'F6.1/'  METERS'/) 

9327  FORMAT  </'  DATE  *'18/'  HOUR  *'14/) 

9330  FORMAT  (1215) 

9335  FORMAT  (/'  INDICATORS/  LPRMT<K>/FOR  PRINTING  FIELDS'/) 

9340  FORMAT  (1H1/'  BEGIN  COMPUT ATIONSFOR  FINE  GRID'/) 

9345  FORMAT  (1H1/'  U  CONP.  AT  LEVEL  3/  CN/SEC*/> 

9346  FORMAT  <1M1/'  V  COMP.  AT  LEVEL  3  '/> 

9050:  FORMAT  (1H1/'  COARSE  GRID') 

9355  FORMAT  <lHl»'  MEDIUM  GRID') 

9356  FORMAT  (1H1/'  FINE  GRID') 

9360  FORMAT  (I5/E10.1/IS) 

9365  FORMAT  (10F8.1) 

9100  FORMAT  (/5X/22FS.0) 

9105  FORMAT  </1X/33I4) 

STOP 

END 

SUBROUTINE  WXANAL(NUM) 

C  THIS  SUBROUTINE  DOES  THE  FOLLOWING.  WHEN  NUN*1GRI0*1  IT 
C  READS  IN  DATA. FROM  HIND  PROFILES  ANO  ASSIGNS  WINDS  TO 
C  SIGMA  levels;  reads  NWS  STATIONS/  COMPUTES  THE  GEOSTROPHIC 
C  WIND  ANO  ASSIGNS  WINDS  TO  SIGMA  LEVELS/  COMBINES  SOUNDINGS  ANO 
C  HOURLY  DATA/  ANO  MAKES  INITIAL  OBJECTIVE  HIND  ANALYSIS  USING 
C  A  HT  FACTOR  INVERSELY  PROPORTIONAL  TO  DISTANCE  SQUARED. 

C  WHEN  NUM  .GT.  1  (IGR10«1  OR  2)  IT  SELECTS  INITIAL  HINDS  FROM 
C  the  next  coarser  GRID. 

C  BY  RM  ENDLICH/SRI  XNTN'L/  JAN  '85 

C - - - - - 

COMMON/LIMITS/NCOL/NROH/NLVL/NCOLMI/NROWNI 

COMMON  /CVOS/  RCM/RMF/IV/OSCRS/IXCRS/JYCRS/IXMED/JVMEO/ 

♦  IXFIN/JYFIN 
COMMON/ RARS/RHS( 50/ 26/6) 

COMMON/UARS/U(50/26/6)/UA(SO/26/6}/V(50/26/6)/VA(50/26/6) 
C0NM0N/HARS/H( 50/26/6) /WA (50/26/6) 
C0NN0N/CSFC/SFCHT(50/26)/S1GMA(6) 


COMMON/P ARMS/ ZTOP/DS/ OSIGMA /NLVLMt^XMTI/XHT 2/ Kl/ r1/ 

1  X2«Y2xUG/VG/RATIO/TOSI 

COMMON/ CTOP/  MCRS#NCRS/MMEO/NMEO«MFIN/NPlN/NGRIO 
COMMON  /SITE/  IXS#  JYSy  TmSITE#  IGRIO 
COMMON  /ANCHOR/  SLAT/  SLNG 
COMMON  /NUMOBS/  NUMOOP/  NUMNWS/  NUMTOT 
COMMON  /UPWIND/  UTOP/  VTOP 
COMMON  /STALOC/  XG(SO)/YG(SO) 

COMMON  /MINOS/  USlG(S0/6)/  VSIG(S0/6) 

DIMENSION  UTENP(50/26)/  VTEMP(S0/26) 

2  F0RNAT(AX/13P4.0) 

3  F0RMAT(4X/-2P13F5.0) 

A  FORMAT<I10/2F10.1) 

5  F0RMAT(3F10.2) 

6  F0RNAT(4X/'-2P14F6.2) 

7  FORMATdH  ) 

8  F0RMAT<4X/-5P3F10.2) 

PRINT  9001/  NUN 

9001  FORMAT  </'  BEGIN  SUBROUTINE  UXANAL/  NUMs'13/> 

IF  (NUN  .GT.  1)  60  TO  200 

C  READ  WINO  SOUNDINGS  AND  ASSIGN- TO  SIGMA  LEVELS 
CALL  OOPSIG 

C  READ  NWS  REPORTS  AND  INTERPOLATE  TO  SIGMA  SFCS 
REAO(2/9014)  NUNNWS 
PRINT  9027/  NUMNWS 
IF  (NUMNWS  .GE.  1)  CALL  GEOSIG 
C  TOTAL  NUMBER  OF  STATIONS  (NUNTOT)  >  NUMOOP  *  NUNNWS 
NUMTOT  s  NUMOOP  *  NUMNWS 
C  MAKE  GRID  POINT  ANALYSIS  OF  DATA 
CALL  GPAN 
DO  SO  J  «  1/  NROW 
00  50  I  -  1/  NCOL 
DO  40  LV  s  2/NLVL 

C  TO  USE  RHS  NEGATIVE  (BELOW  TERRAIN)  MAKE  WINDS  0. 

IF  (RHS(I/J/LV)  .GE.  0.0)  GO  TO  43 
U(1/J/LV)  3  0.0 
V(I/J/LV)  s  0.0 
40  CONTINUE 
50  CONTINUE 
GO  TO  300 
200  CONTINUE 

C  SELECT  NINOS  FOR  SMALLER  GRID  FROM  LARGER  GRID 
C  ASSIGN  WINDS  TO  MED.  GRID  FROM  COARSE  GRID 
IF  (NUM  .NE.  2)  GO  TO  216 
00  215  K  >2/NLVL 
00  210  I  sl/NCOL 
DO  210  J  «1/NR0W 

IC  »IXCRS  ♦  4NINT(FL0AT(I-IXM£0)/RCM> 

JC  sjYCRS  ♦  4NINT(FL0AT(J-JTME0)/RCM) 

C  FILL  IN  NONZERO  NINOS  FROM  NEAREST  POINTS 

IF  (U(IC/JC/K)  .EQ.-O.  .AND.  V(IC/JC/K)  .EO.  0.)  1C*IC«1 

IF  (U(IC/JC/K)  .EQ.  0.  .AND.  V(IC/JC/R)  .EQ.  0.)  IC>IC*2 

IF  (U(IC/JC/K)  .EQ.:0.  .AND.  V(IC/JC/K)  .EO.  0.) 

IF  (U(IC/JC/K)  .EQ.  0.  .AND.  V(IC/JC/K)  .EQ.  0.)  JC*jC-2 

UTEMPd/J)  *U(IC/JC/K) 

VTENPd/J)  «V(IC/JC/K) 

210  CONTINUE 

DO  212  I  si /NCOL 
DO  212  J  >1/NR0W 
Ud/J/K)  «  UTEMPd/J) 

Vd/J/K)  *  VTENPd/J) 


212 
21  5 
216 


,E0.  0.)  JC>=JC-2 


225 


227 

23C 


IF  (RMS(I/J/H)  .LE.  0.0)  U<I/JxR)  =  0.0 
IF  (RHSd^J^K)  .LE.  0.0)  Vd/J^K)  -  0.0 
CONTINUE 
CONTINUE 
CONTINUE 

SELECT  FINE  GRID  WINDS  FROM  HEOIUH  GRID  WINDS 
IF  (NUM  .NE.  3)  GO  TO  300 
DO  230  K  xZ^nlVL 
DO  225  I  =1#NCOL 
DO  225  J  =1/NROW 

IC  sIXMED  ♦  JNINT<FLOATd-IXFIN)/RMF) 

JC  =JYMEO  ♦  JNINT(FiOAT< J-jrFIN)/RMF) 

FILL  IN  NONZERO  WINDS  FROM  NEAREST  POINTS 

IF  (UdC#JC«K)  .EO.  0.  .AND.  VdC/JC«K)  .EQ.  0.)  IC>IC«1 

IF  (UdC^JC/K)  .EO.  0.  .AND.  VdCxJC^K)  .EQ.  0.)  IC*IC-2 

IF  (UdC/JC^K)  .EQ.  0.  .AND.  VdC#JC/K>  .EQ.  0.)  JC  =  JC-F1 

IF  (UdC/JC/K)  .EQ.  0.  .AND.  VdC^JC/K) 

UTEMPd^J)  sUdC^JC^K) 

VTEHPd/J)  =VdC/JC#K) 

CONTINUE 

DO  227  I  =UNCOL 
DO  227  J  sl/NROW 
Ud/JyK)  •  UTEMPdyJ) 

Vd^J^K)  =  VTENPdyJ) 

ZF  (RHSd«J/K)  .LE.  0.0)  U(I#J^K)  -  0.0 
IF  (RHSd/J/K)  .LE.  0.0)  VCI/J^K)  =  0.0 
CONTINUE 
CONTINUE 
300  CONTINUE 

PRINT  9002 

9002  FORMAT  (/'  END  OF  SUBROUTINE  UXANAL'/) 

9307  FORMAT  <//*  THE  ANCHOR  PT-.  IS  AT  LAT  «*F9.3/' 

9014  FORMAT  (3X/IS/2F8.2) 

FORMAT  (/*  number  OF  HOURLY  SURFACE  REPORTS  s'I3/) 
RETURN 
END 

SUBROUTINE  OOPSIG 

ASSIGN  DOPPLER  NINO  PROFILES  TO  SIGMA  SURFACES. 

MISSING  WINDS  ARE  DENOTED  BY  -999. 

IF  SOUNDING  IS  NOT  COMPLETE  THE  LAST  REPORTED  WIND 
IS  USED  AT  THE  HIGHEST  ALTITUDES. 

HIND  DATA  START  AT  40  M  AND  CONTINUE  AT  30-M  INTERVALS 
TO  610  M.  THERE  ARE  20  POINTS  IN  A  PROFILE. 

FILL  IN  MISSING  DATA  WITH  NEAREST  POINT  UP  OR  DOWN. 

FOR  PROGRAM  OIABWNO/  JAN  '85. 

BY  R.M.  ENOLICH/  SRI  INTN'L^  MENLO  PARK  CA  94025. 

DIMENSION  0PHT<S#S0)«  0PUC(S^50)^  DPVC(S^SO) 

DIMENSION  RHS1(5#6)/  STLTCS)^  STLN(5) 

DIMENSION  0PH0(5#S0)/0PWS(5/S0) 

COMMON  /STALOC/  XG(50)/  YG(SO) 

COMMON  /HINDS/  USIG(50/6)#  VSIG(53^6) 

DIMENSION  XS(S)^  VS(S) 
CONMON/LIMITS/NCOL^NROH/NLVL/NCOLMlrNROUMl 
COMNON/RARS/RHS(SO/26/6) 

COMMON/UARS/U(50^26^6)/UA(S0^26^6)/V(50#26/6)rVA(50#26/6) 
COMMON/ FARMS /ZTOP^DS/OSIGMA/NLVLNl/XHTIrXHT 2 fXl/YI  / 

1  X2xY2/UG#VG/RATIO/TOSI 
COMMON  /SITE/  IXS#  JYS^  THSITE^  ISRID 
COMMON  /ANCHOR/  SLAT/  SLNG 
COMMON  /NUMOBS/  NUMOOP/  NUMNHS/  NUNTOT 
COMMON  /UPHINO/  UTOPr  VTOP 
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variables  ARE: 

OPUC  =  U  COMPONENT  OF  OOPPLER  WiNO  IN  MPS 
OPVC  =  V  COMPONENT  OF  OOPPLER  WINO  IN  MPS 
NHTS  =  NUMBER  OF  POINTS  IN  VERTICAL  WiNO  PROFILE 
NLVL  s  NUMBER  OF  SIGMA  LEVELS 
RHS  =  HT  OF  SIGMA  SURFACES  ABOVE  TERRAIN  (M) 

XG#VG  =  STA.  GIST  IN  X,Y  IN  GRID  UNITS  FROM  SW  CORNER 
PRINT  9001 

9301  FORMAT  (/'  BEGIN  SUBROUTINE  OOPSIG  '/> 

C  FILL  IN. HEIGHTS  OF  OOPPLER  DATA  POINTS 

C - 

C  PRINT  LAT/LONG  OF  ANCHOR  POINT 
PRINT  9007/  SLAT/  SLNG 

C*  REAO  LAT  /  LONG  OF  STATIONS  (0E6>  ANO  CONVERT  TO  XS/YS  (KM) 
C  MEASUREO  FROM  SW  CORNER  OF  COARSE  GRIO 
READ(2/901A)  NUMOOP 
PRINT  9027/  NUMOOP 

REA0(2/90U)  (STAIOaT)/STLT(IT)/  STlN( IT >/ IT«1 /NUMOOP) 
PRINT  9004 

PRINT  9014/  (STAIO(IT)/STLT(IT)/  STLN(IT>/IT«1/NUN00P) 
00  IS  ITsl/NUMOOP 

XSCIT)  =  (STLN(IT)  -  SLNG)*(111.2  •C0S(SLAT/S7.29S)> 
YSCIT)  =  (STLTCIT)  -  SLAT)*111.2 
XSCIT)  =  XS<IT)  ♦  IXS  •  <0S  *  .001) 

YS<IT)  =  YSCIT)  ♦  JYS  *  <0S  *  .001) 

XGCIT)  =  XS(IT)/(OS  *  .001) 

YGCIT)  =  YS<IT)/<OS  *  .001) 

15  CONTINUE 

PRINT  9008 

PRINT  9011/  <XS(IT)/  YS<IT»/X6<IT)/YG(IT>/IT*1/NOMOOP) 

C  ASSIGN  HTS  OF- SIGMA  SFC  FOR  EACH  SOUNOING 
00  2S  IT  s  1/NUMOOP 
00  20  K  3  1/NLVL 
IX  s  JNINTCXGdT)) 

JY  s  JNINT(YG<IT)) 


IF 

(IX 

.LT. 

1) 

IX 

3  1 

IF 

(IX 

.GT. 

NCOL) 

IX  3  nCOL 

IF 

(JY 

•  LT. 

1) 

JY 

3  1 

IF 

(JY 

.GT. 

NROW) 

JY  3  nROW 

RM51(IT/K)  =  RM5<IX/JY/X» 

20  CONTINUE 

PRINT  9024 

PRINT  9015/  IT/  CRHS1<IT/K)/K3l/NLVL) 

25  CONTINUE 

C  REAO  OOPPLER  SOUNOINGS  FOR  NUMOOP  STATIONS 
00  450  IT  =1/NUM00P 
REAO  (2/9014)  NHTS 
PRINT  9003/  IT/  NHTS 

REAO  (2/9009)  (  0PHT(IT/LL)/0PH0(IT/LL)/  OPWS ( IT/LL) /LL^I /NHTS) 
PRINT  9009/  (  OPHT(IT/LL)/OPMO(IT/LL)/  OPWSdT/LLJ/LUPI/NMTS) 

C  CHANGE  DIRECTION  AND  SPEED  (MPS)  TO  U  AND  V 
00  40  LL  3  1/NHTS 

IF  (0PW0(IT/LL)  .EQ.  -999.0)  THEN 
OPUCdT/Ll)  3  -999.0 
OPVCdT/LL)  3  -999.0 
ELSE 

OPUCdT/LL)  3  -OPwSdT/LL)  *  SIN(DPWO(IT/LL) /57.295) 
OPVCdT/LL)  3  -OPWSdT/LL)  •  COS  (  OPWO  ( IT /LL  )  /  57 . 29  5) 

END  IF 

40  continue 


PRINT  9010/  (0PUC(IT/LL)/  OPVC t IT,tL ) /LL =1 /NHTS) 

C  FILL  IN  MISSING  data  IF  NEcOEO 
C  START  FROM  BOTTOM  AND  GO  UPWARD 
LL  =  0 

60  LL  =  LL  *1 

If  (LL  .EQ.  NMTS)  GO  TO  100 
IF  (OPUC<IT/LL)  .EO.  -999.0)  THEN 
GO  TO  70 
ELSE 

GO  TO  60 
END  IF 

70  LLI  =  LL 

75  LLI  =  LLI  ♦  1 

IF  (0PUC<IT/LL1)  .EQ.  -999.0  .AND.  LLI  .EQ.  NMTS) 

♦  CO  TO  100 

IF  <0PUC<IT/LL1)  .EQ.  -999.0)  THEN 
GO  TO  75 
ELSE 

OPUC<IT/LL)  -  0PUC(1T/LL1) 

OPVC<IT/LL)  *  0PVC<IT/LL1) 

PRINT  9015/  LL/  0PUC<IT/LL)/  OPVCCIT/LL) 

GO  TO  60 
END  IF 

100  CONTINUE 

PRINT  9010/  (OPUC(IT/LL)/  OPVC<IT/LL) /LL«1 /NMTS) 

C  START  FROM  TOP  AND  GO  DOWN 
LL  *  NMTS  ♦  1 
110  LL  =  LL  -1 

IF  (LL  .EQ.  1)  GO  TO  UO 
IF  (OPUC(IT/LL)  .EQ.  -999.0)  THEN 
GO  TO  120 
ELSE 

GO  TO  110 
ENO  IF 

120  LLI  p  LL 

125  LLI  *  LLl  -  1 

IF  <0PUC(IT/LL1)  .EQ.  -999.0)  THEN 
GO  TO  125 
ELSE 

OPUC(IT/LL)  =  0PUC(IT/LL1) 

0PVC(IT/LL)  =  DPVC(IT/LL1) 

PRINT  9015/  LL/  0PUC(IT/LL)/  OPVCdT/LL) 

GO  TO  110 
ENO  IF 

140  CONTINUE 

PRINT  9012 

PRINT  9010/  <OPUC(IT/LL)/  0PVC<IT/LL)/LL»1 /NMTS) 

C  BEGIN  INTERPOLATION  SCHEME 

DO  400  K  s  2/  NLVL  !  COUNTER  FOR  SIGMA  LEVELS 
LL  »  0 

200  LL  *  LL  ♦  1 

IF  (RNSKIT/K)  .GT.  0.0)  GO  TO  365 
USIG(IT/K)  s  0.0 
VSIGdT/K)  =  0.0 
GO  TO  400 

365  IF  (RHSKIT/K)  .LE.  0PHT<IT/LL))  GO  TO  320 

IF  (RHS1(IT/K)  .GE.  0PHT(IT/NHTS))  go  to  380 
IF  (RMSKIT/K)  .GE.  0PHT(IT/LL)  .AND.  RHS1(IT/K)  . 

♦  0PMT<IT/LL^1 ) )  GO  TO  360 
GO  TO  200 

C  FOR  LEVELS  BELOW  1ST  MEASURED  NINOS  (ASSUME  SPEE0=0  AT  1M 


C  AND  AT  GROUND  Mt^ERE  RH$sO) 

3  20  USI&(1T/R)  =  (0PUC  <IT/LL>)*<ALOG10<RHS1 <IT/K)) )/ 

♦  AL0G10(0PMT<IT#l.L)i 
VSIG<IT,R)=(0PVC<ITyLL))*<AL0GiD<RHS1 (IT/K)) )/ 

♦  ALOG10(OPMT<IT#LL)) 

GO  TO  400 

C  FOR  SIGMA  LEVELS  BETWEEN  DOPPLER  WIND  POINTS 

360  RATI 0» ( AL0G10 (RHSI < IT/K) )-4LOG10(OPHT( IT/LL )>)/ 

♦  (ALOGlOIOPMTdT/LL  +  l))-  AL0G1 0<0PHT  ( I T  /  LL  )  )  ) 

USIG<IT,K)  =  DPUC<IT/LL)  ♦ (OPUC <1T /LL^I ) -OPUC < IT /LL > ) 

♦  *  RATIO 

VSIGdT/K)  =  OPVCdT/LL)  ♦  (OPVC  CIT /LL^D -QP  VC  (IT/ LL)  ) 

♦  *  RATIO 
GO  TO  400 

C  FOR  SIGMA  LEVELS  ABOVE  LAST  OOPPLER  POINT 
380  USIGdT/K)  =  OPUCdT/NHTS) 

VSIGdT/R)  *  DPVCdT/NHTS) 

400  CONTINUE 

PRINT  9020/  IT 

PRINT  9010/  (USlGdT/K)/  VSIGdT/K)/  K  =  1/NLVL> 

450  CONTINUE 

C  GET  AVER  UPPER  UINO  FOR  POSSIBLE  USE  IN  GEOSIG  IF  GEOS  NINO 
C  IS  NOT  available 
UTOP  =  0 
VTOP  =  0 

00  460  IT  s  1/  NUMOOP 

UTOP  *  UTOP  ♦  USIGdT/NLVL) 

VTOP  =  VTOP  *■  VSIGdT/NLVL) 

460  CONTINUE 

UTOP  =  UTOP/ (FLOAT(NUMOOP)) 

VTOP  =  VTOP/ <FL0AT<NUM00P») 

PRINT  9026/  UTOP/  VTOP 
PRINT  9002 

9002  FORMAT  </'  END  OF  SUBROUTINE  OOPSIG  */> 

9003  FORMAT  </'  STA.  «'I3/-’  NO.  OF  POINTS  IN  PR0FILe«*I3/) 

9004  FORMAT  <//'  LATITUDE  ANO  LONGITUDE  OF  STATIONS'/) 

9005  FORMAT  (/'  WIND  OIR  WIND  SPEED/  STATXONs'14/) 

9006  FORMAT  </'  U  COMPONENT  V  COMPONENT  AT  SIGMA  LEVELS'/) 

9007  FORMAT  (//'  THE  ANCHOR  PT.  IS  AT  CAT  ='F9.3/'  ANO  L0NC»'F9.3) 

9008  FORMAT  (//'  X  ANO  V  OF  STATIONS  IN  KM  ANO  IN  COLS/ROWS  FROM  SW 

♦  CORNER  OF  COARSE  GRID'/) 

9009  FORMAT  (3X/3F7.1) 

9010  FORMAT  (3X/8F6.1) 

9011  FORMAT  (/4X/2F11.0/8X/2F10.1> 

9012  FORMAT  (/'  SOUNDING  WITH  FILLED  IN  DATA  '/) 

9014  FORMAT  < 3X/ 1 5/ 2F8. 2 ) 

9015  FORMAT  <3X/I5/6F8.2) 

9020  FORMAT  (/'  STATION  NUMBER  ='I6/) 

9024  FORMAT  (/'  HEIGHTS  OF  SIGMA  SURFACES  */) 

9026  FORMAT  </'  AVER.  UPPER  WIND/  U  e'F6.1/'  V»'F6.1/) 

9027  FORMAT  (/'  NUMBER  OF  WIND  SOUNDINGS  =*I3/) 

RETURN 

END 

SUBROUTINE  GEOSIG 

C  PREPARE  NWS  HOURLY  REPORTS  OF  WIND  DIRECTION/  WIND  SPEED 
C  (KNOTS)/  SEA  LEVEL' PRESSURE  (MB)/  ANO  TEMPERATURE  (DEG  F) 

C  FOR  INPUT  TO  WIND  ANALYSIS  FOR  DIABLO  PGE  SITE. 

C  COMPUTE  GEOS  WIND  FROM  PRESSURE  AT  THREE  STATIONS  ANO 
C  CORRECT  IT  FOR  THERMAL  WIND  COMPONENT  (IF  DESIRED). 

C  ASSUME  that  HIND  COMPONENTS  VARY  WITH  LOG(HEIGHT)  BETWEEN 
C  ANEMOMETER  NT  ANO  GEOS  WIND  AT  HT  GEOSHTIABOUT  500M). 


ooooooooooo 


AT  EACH  NWS  STATION  INTERPOLATE  MINDS  TO  SIGMA  SURFACES. 

BY  RM  ENOLICM,  SRI  INTN'L/  MENLO  PARK  CA  04025  DEC  '84. 
VARIABLES 

NUMNUS  =  NUMBER  OP  NWS  REPORTS 
NWSIO  =  IDENTIFICATION  10  OF  NWS  STATION 
WO  c  WIND  DIRECTION 
SP  =  WIND  SPEED 

STLT  =  STATION  LATITUDE  IN  DEGS  AND  HUNDREDTHS 
STLN  =  STATION  LONGITUDE 

PRESS  =  STATION  SEA  LEVEL  PRESSURE  IN  INCHES  HG 
TEMP  =  STATION  TEMP  IN  DEG  F 

DIMENSION  STLT<50)/  STLN(50)x  PRESS(50> 

DIMENSION  TEMP(SO) 

DIMENSION  RHS1(S0«6)/  UNWS(S0^6)^  VNWS(S0/6) 

DIMENSION  UC0NP(S0}y  VCOMP(SO)^  W0(50)^  WS(50> 

DIMENSION  XS(SO)«  VS(SO) 

DIMENSION  XG1(S0)r  YGUSO)#  USIG1(50^6)/  VSIG1(50/6) 
COMMON/LIMITS/NCOL/NROH/NLVL/NCOLMUNROWMI 
COMMON/RARS/RHS(SO«26/6) 

COMMON/UARS/U<SO/26/6)/UA<S0^26^6)^V (50/ 26/6) /VA(SO« 26/6) 
C0MM0N/PARMS/ZT0P/0S/0SIGMA/NLVLM1/XMT1/XHT2/X1/Y1 / 

1  X2/Y2/UG/V6/RATI0/T0SI 
COMMON  /SITE/  IXS/  JYS/  THSITE/  IGRIO 
COMMON  /STALOC/  XG(SO)/  VG(50) 

COMMON  /WINDS/  USIG(S0/6)/  VSI6(50/6) 

COMMON  /ANCHOR/  SLAT/  SLNG 
COMMON  /NUMOBS/  NUMDOP/  NUMNWS/  NUMTOT 
COMMON  /UPWIND/  UTOP/  VTOP 
INTEGER  STAIO(50) 

10  FORMAT  <I5/2F8.2/4F7.1 ) 

20  FORMAT  </'  N0.='I3/'  STA  I0='I5/*  LAT=*F7.2/'  L0N6. 

4  *'F7.2/-’  PRESS  =  'F7,2/'  TEMP»'F6.1/) 

25  FORMAT  ('  WIND  0IRa'F6.1/*  WIND  SPEEOa* F5.1 /) 

30'  FORMAT  <*  CEOSTROPMIC  WIND  COMPONENTS/  MPS/  U  a'FS.I/ 

♦  '  V  «'F5.1/) 

40  FORMAT  <//'  thermal  WIND  SHEAR  COMPONENTS/  MPS/  U  *' 

♦  F5.1/*  V  =*F5.1/*  LAYER  DEPTH  a'F6.1/'  M'/) 

SO  FORMAT  (//*  GEOSTROPHIC  WIND  CORRECTED  FOR  THERMAL  WIND') 

PRINT  9001 

9301  FORMAT  </'  BEGIN  SUBROUTINE  GEOSIG  '/) 

C  READ  INPUT  OF  HOURLY  DATA:  STATION  10/  LATITUDE/  LONGITUDE/ 

C  PRESSURE/  TEMPERATURE/  WIND  DIRECTION/  HIND  SPEED  (MPS) 

DO  70  IT  =  1 /NUMNWS 

READ  <2/  10)  STAIO(IT)/  STLT(IT)/  STLN(IT)/ 

♦  PRESSCIT)/  TEMP(IT)/  WO(IT)/  WS(IT) 

PRINT  20/  IT/  STAI0(IT)/STLT<IT),STLN<IT)/ 

♦  PRESS<IT)/TEMP<IT) 

PRINT  25/  WO(IT)/  WS(IT) 

70  CONTINUE 

C  CONVERT . LAT/LONG  TO  XS/YS  (KM)  MEASURED  FROM  SW  CORNER  OF 
C  COARSE  GRID 

DO  15  U*1 /NUMNWS 

XS(J)  =  (STLN(J)  -  SLNG)*(111.0  *C0S(SLAT/57. 295) ) 

YS(J)  a  (STLT(J)  -  SLAT)*111.0 
XS(J)  =  XS(J)  ♦  IXS  •  (OS  *  .001) 

YS(J)  =  YS(J)  4  JYS  *  (OS  *  .001) 

XGKJ)  a  XS(J)/(OS  *  .001) 

YGKJ)  =  YS(J)/(OS  *  .001) 

15  CONTINUE 

PRINT  9008 


PRINT  9011#  (XS<J)/  tS< J)#X&1 < J)# VG1 ( J) #J=1 #NUMNMS) 

C  CHANGE  DIRECTION  AND  SPEED  (MPS)  TO  L)  AND  V 
DO  80  IT  =  1#NUMNWS 

UCOMPCIT)  =  -WS<IT)  *  SIN<WD(IT)/57.295) 

VCOMPIIT)  =  -mS<IT)  *  COS<WO<IT)/57.295) 

PRINT  9002 

PRINT  9013/  IT/  UCOMP(IT)/  vCOMPdT) 

SO  CONTINUE 

C  ASSIGN  HEIGHTS  TO  SIGNA  SURFACES 
DO  125  J  =  1/NUMNWS 
DO  120  K  =  1/NLVL 
IX  3  JNINT  (X61(J)) 

JY  -  JNINT  <VG1<J)) 

IF  <IX  .LT.  1)  IX  =  1 
IF  (IX  .GT.  NCOL)  IX  e  NCOL 
IF  (JY  .LT.  1)  JY  a  1 
IF  (JY  .GT.  NROW)  JY  a  NROU 
RHSKJ/K)  a  RHS(IX/JY/K) 

120  CONTINUE 

PRINT  9024 

PRINT  9015/  J/  (RHS1(J/K)/Ka1/NLVL> 

125  CONTINUE 

C  FOR  SANTA  BARBARA  NEGLECT  GEOS  WIND  (NOT  REPRESENTATIVE) 

UGEOS  a  uTOP 
VGEOS  a  VTOP 
GO  TO  200 

C  IF  LESS  THAN  3  NWS  STATIONS  CANT  COMPUTE  GEOS  WIND.  INSTEAD 
C  USE  UTOP/  VTOP  FROM  DOPPLER. 

IF  (NUMNWS  .LT.  3)  UGEOS  a  utOP 
IF  (NUMNWS  .LT.  3)  VGEOS  =  VTOP 
IF  (NUMNWS  .LT.  3)  60  TO  200 

C**THIS  SECTION  COMPUTES  GEOSTROPHIC  WINDS  AND  IT  ALSO  CORRECTS 
C  THEM  FOR  THERMAL  NINOS  IF  NTHERMal. 

C  SELECT  THREE  STATIONS  FOR  GEOS  WIND  COMPUTATION 
C  HERE  USE  PT  MUGU/  PT  SAN  BUOY/  PT  CONCEPTION  BUOY  (END  OF  LIST) 

151  a  NUMNWS  *  2 

152  a  NUMNWS  -  1 

153  a  NUMNWS 
C  SET  NTHcRM 

NTHERM  s  1 

PR1  a  PRESS(ISI)  *  (101 3.3/29.92> 

PR2  a  PRcSS(IS2)  *  (1013.3/29.92) 

PR3  a  PRESS(IS3)  *  (1013.3/29.92) 

STLT1  a  STLT(ISI) 

STLT2  a  5TLT(IS2) 

STLT3  a  STLT(IS3) 

STLNI  a  STLN(ISI) 

STLN2  a  STLN(IS2) 

STLN3  a  STLN(IS3) 

TMP1  a  tEMP(ISI) 

TMP2  a  TEMP(1S2) 

TMP3  a  TEMP(IS3) 

C  DEFINE  CONSTANTS 

AVLAT  a  .333*  (STLTi  ♦  STLT2  ♦  STLT3) /57. 295 

AVLON  a  .333*  (STLNI  ♦  STLN2  ♦  STLN3) /57.295 

FC  a  14.584  *  SIN  (AVLAT) 

C  CORIOLIS  FORCE  IN  UNITS  10-5  SEC-1 
COSLAT  a  COS  (AVLAT) 

OENOM  a  (STLT2-STLT1)  *( STLN3-STLN1 )  -  (STLT3-STLT1)  * 

♦  (STLN2-STLN1) 

RHO  a  1.1 


C  DENSITY  IN  UNITS  10-3  &/CM3 
C2  =  100.0/<RHO  *1.112) 

C  COMPUTE  GEOSTROPHIC  WINDS 

OPOLT  =  ((STLN2  -  STLN1 )  *  (PR3-PR1  >  -  (STLN3  -STLNl)  * 

*  <PR2  -  PR1 >)/ <-OENOM> 

opDln  =  ((STcra  -  stltd  *  (pr3  -  prd  -  isrni  -stltd  * 

*  <PR2  -  PR1))/0EN0H 
UGEOS  =  {-C2/FC)  *  OPDLT 

VGEOS  =  (C2/FC)  *  (OPDLN/COSLAT) 

C  SPEED  UNITS  ARE  M  SEC-1 

PRINT  30^  UGEOS#  VGEOS 

C  THIS  PART  MAKES  THERMAL  HIND  CORRECTION  TO  UGEOS#  VGEOS 
C  NTHERM  IS  INDICATOR  FOR  USE  <UH£N=1) 

IF  (NTHERM  .NE.  1)  GO  TO  200 

FVNIN  =  S. 0/9.0 

TMP1  =  (TMPI  -  32.0)  *  FVNIN 

TMP2  =  <TMP2  -  32.0)  *  FVNIN 

TMP3  =  (TMP3  -  32.0)  *  FVNIN 

AVTMP  =  273.0  ♦  .333  *(TMP1  ♦  TMP2  ♦  TMP3) 

C  GRAVITY  =  9.8  M  SEC-2#  TEMP  IN  DEG  K 
C3  *  9.8/<FC  *  1.112) 

DTOLT  =(<STLN2  “STLND*  <TMP3-TMFl)  -  (STLN3-STLN1 ) 

+  *<THP2-TMP1))/<-OBNOM) 

OTOLN  »<<STLT2-STLT1)*  <TMP3-TMP1)  -<STLT 3-STLT1 ) 

*  *(TMP2-TMP1))/OENOM 
UTHERM  =  -<C3/AVTMP)*0T0LT 

VTHERM  =  (C3/AVTMP}*(OTOLN/COSLAT) 

C  ASSUME  SHEAR  ACTS  OVER  LAYER  OF  DEPTH  OEPL  (IN  M) 

OEPL  =  200  !  TIE  THIS  IN  TO  AVTHK  FOR  6  LTR  TOP 

USHEAR  a  UTHERM  •  OEPL 
VSHEAR  s  VTHERM  *  OEPL 
PRINT  40#  USHEAR#  VSHEAR#  OEPL 
UGEOS  «  UGEOS  *  USHEAR 
VGEOS  *  VGEOS  ♦  VSHEAR 
PRINT  SO 

PRINT  30#  UGEOS#  VGEOS 
230  CONTINUE 

C**ENO  OF  GEOSTROPHIC  WIND  SECTION 
C  INTERPOLATE  NINOS  BETWEEN  SFC.ANO  GEOSHT 
00  450  IT  =  1#  NUMNWS 

DO  400  K  s  2#  NLVL  !  COUNTER  FOR  SIGMA  LEVELS 
IF  (RHS1(IT#K)  .GT.  0.0)  GO  TO  370 
UNUS(IT#K)  >  0.0 
VNWS(1T#K)  e  0.0 
GO  TO  400 

370  IF  (RHS1(IT#NLVL)  .GE.  800.)  GEOSHT  =  800. 

IF  (RHS1(IT#NLVL)  .LT.  800.)  GEOSHT  *  RHS1 ( 2T#Nl VL> 

IF  (RHS1(IT#K)  .GT.  GEOSHT)  GO  TO  380 
C  FOR  SIGMA  LEVELS  BETWEEN  SURFACE  06S  AND  GEOSHT 

RATI0»(ALOG10(RHS1 ( IT# K )) -1 .0) /( AL0G10 (GEOSHT )  -1  .0) 
UNMS(IT#K)  s  UCOMP(IT)  *(UG£OS-UCOMP(IT) )  •  RATIO 
VNHS(IT#K)  «  VCOMP(IT)  *(VGEOS-VCOMP(IT)>  *  RATIO 
GO  TO  400 

C  FOR  sigma  levels  above  GEOSHT 
380  UNWS(IT#K)  s  UGEOS 
VNMS(IT#K)  s  VGEOS 
400  CONTINUE 

PRINT  9020#  IT 

PRINT  9010#  (UNWS(IT#K)#  VNWS(IT#K)#  K-1#NLVL) 

450  CONTINUE 

C  INCLUDE  NWS  DATA  WITH  OOPPLER  DATA  IN  ARRAYS  NEEDED 
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FOR  OBJECTIVE  ANALYSIS. 

DO  A60  N  =  1r  NUMNWS 
H  =  N  ♦  NUMOOP 
X&(M)  s  XGKN) 

YG<M)  =  YG1<N) 

DO  460  K  =  1/  NLVL 

USIG(H^K)  -  UNWS(N/K) 

VSIG(M/K)  =  VNMS(N/K) 

I  CONTINUE 

NUMTOT  «  NUMOOP  *  NUHNWS 
00  460  MSI/  NUMTOT 
PRINT  9020#M 

PRINT  9010^  (USIG(MyK)/  VSIG(M^K)#  K>1«NLVL) 
I  CONTINUE 


PRINT  9003 

302  FORMAT  (//*  STA.  NO.  U  COMP  V  COMP  '/) 

303  FORMAT  (/*  ENO  OF  SUBROUTINE  GEOSIG  */) 

304  FORMAT  (//'  LATITUDE  ANO  LONGITUDE  OF  STATIONS  '/) 

305  FORMAT  (/'  NINO  OIR  WIND  SPEED^  NWS  DATA'/) 

306  FORMAT  (/'  U  COMPONENT  V  COMPONENT  AT  SIGMA  LEVELS'/) 

307  FORMAT  <//*  THE  ANCHOR  PT.  IS  AT  LAT  b*F9.S/'  ANO  LONGs'F9.3) 

308  FORMAT  (//'  X  ANO  V  OF  STATIONS  IN  KM  AND  IN  COLS^ROHS 
*  FROM  SW  CORNER  OF  COARSE  GRID*/) 

310  FORMAT  (3X#8F6.1) 

311  FORMAT  (/4X«2F11.0/8X/2F10.1) 

313  FORMAT  </'  STA.  *'I5»'  UC0MPa*F8. 1 / ' ■  VC0MP='F8. 1 /) 

314  FORMAT  ( 3X/ I 5/2F8. 1 ) 

315  FORMAT  (3X^IS^8F8.1 ) 

320  FORMAT  (/'  STATION  NUMBER 

)24  FORMAT  (/'  HEIGHTS  OF  SIGMA  SURFACES  '/) 

RETURN 

ENO 

SUBROUTINE  GPAN 

THIS  ROUTINE  MAKES  A  GRID  PT  ANALYSIS  FROM  AVAILABLE 
UINO  OBSERVATIONS.  THE  OBSERVATIONS  HAVE  BEEN  INTERPO¬ 
LATED  TO  SIGMA  SURFACES.  THE  WEIGHTING  GIVEN  TO  EACH 
STATION  IS  INVERSELY  PROPORTIONAL  TO  ITS  DISTANCE  FROM 
THE  GRID  POINT. 

FOR  SUBROUTINE  OIABWNO/  JAN  '85. 

BY  R.M.  ENOLICH^  SRI  INTN'L^  MENLO  PARK  CA  94025. 

DIMENSION  HT(SO) 

COMMON  /NINOS/  USIG<S0^6)/  VSIG<50/6} 

COMMON  /STALOC/  XG<SO)/  YG(50) 

INTEGER  STAI0(6) 

REAL  NINOIST 

C0MM0N/LIMITS/NC0L#NR0W/NLVL/NC0LM1^NR0HM1 
COMMON/UARS/U(50/26#6)/UA(SO#26/6)^V (50/26^6)/ VAC  50/26/6) 
COMMON/PARMS/ZTOP/OS/OSIGMA/NLVLN1/XHT1/XHT2/X1/ Y1 / 

1  X2/T2/U6/VG/RATIO/TOSI 
COMMON  /SITE/  IXS/  JYS/  THSITE/  IGRID 
COMMON  /ANCHOR/  SLAT/  SLNG 
COMMON  /NUMOBS/  NUMOOP/  NUMNWS/  NUMTOT 
COMMON  /PRLIM/  11/  12 
VARIABLES  ARE: 

USIG  a  u  COMP  OF  NINO  ON  A  SIGMA  SFC 
VSIG  a  V  COMP  OF  WIND  ON  A  SIGMA  SFC 
WT  a  WEIGHT  ASSIGNED  TO  A  GIVEN  STATION 
U(I/J/K)  ANO  V(I/J/K)  ARE  FINAL  WIND  COMPONENTS 
NLVL  a  number  of  SIGMA  LEVELS 

XG/YG  ARE  DISTANCES  OF  STATIONS  FROM  SW  CORNER  OF  COARSE 
GRID  ANO  ARE  MEASURED  IN  GRID  UNITS  COSCRS) 
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IN  ARRAYS  (IT^K)  IT  DENOTES  STATIONS^  K  DENOTES  LEVELS 
IN  3-0  ARRAYS  I/J<^K  DENOTE  COLS/  ROUS/  LEVELS  FROM  Su  CORNER 


PRINT  9001 

9001  FORMAT  </  '  BEGIN  SUBROUTINE  GPAN  '/) 

C  SET  MINIMUM  distance  (GRID  UNITS)  TO  AVOID  INFINITE  UTS 
MINDIST  =  0.15 
DO  400  1=1/  NCOL 
DO  400  J  =  1/  NROU 
SUMUT  =  0.0 
DO  100  IT  =  1/  NUMTOT 

OIST  =  (FLOAT(I)  -XG(IT))**2  ♦  (FLOAT (J>-YG<IT) )**2 
OIST  =  SQRT(OIST) 

IF  (OIST  .LE.  MINDIST)  OIST  =  MINDIST 
UT(IT)  =  1.0/(0IST*DIST) 

SUMUT  =  SUMWT  UT(IT) 

100  CONTINUE 
C  NORMALIZE  WEIGHTS 

00  120  IT  =  1/  NUMTOT 
UT  (IT)  =  WT(IT)/SUMUT 
120  CONTINUE 

IF  (J  .NE.  31)  GO  TO  125 
PRINT  9030/  1/  J 

9030  FORMAT  (/*  HTS  FOR  STATIONS  FOR  GRID  POINT  X/V»*2I3) 
PRINT  9010/  (WT(IT)/IT=1/NUNTOT) 

125  CONTINUE 

C  MAKE  GRID  POINT  ANALYSIS  USING  UTS  AND  STA  DATA 
DO  350  K  =  1>  NLVL 
U(I/J/K)  =  0.0 

V(I/J/K)  =  0.0 

DO  300  XT  =  1/  NUMTOT 

U(I/J/K)  =  U(I/J/K)  ♦  HT(XT)  *  USIGdT/R) 

V(I/J/K)  •  Vd/J/K)  ♦  MTdT)  *  VSIGdT/K) 


330 

CONTINUE 

350 

CONTINUE 

400 

CONTINUE 

DO  330  K  =  2/ 

NLVL 

PRINT  9035/ 

K 

9335 

FORMAT  (/*  U 

COMPONENT  AT  LEVEL  =*I3/) 

DO  320  JR  = 

1/  NROU 

JP  =  NROU 

♦  1  -  JR 

320 

PRINT  9031/ 

(UdP/JP/K)/IP«I1/I2} 

PRINT  9038/ 

K 

9038 

FORMAT  <*  V 

COMPONENT  AT  LEVEL  =*I3/) 

00  325  JR  » 

1/  NROU 

JP  =  NROU 

♦  1  -  JR 

325 

PRINT  9031/ 

(V(IP/JP/K)/IP=I1/I2) 

330 

CONTINUE 
PRINT  9002 

9302 

FORMAT  (//* 

END  OF  SUBROUTINE  GPAN  *7) 

9304 

FORMAT  (//* 

LATITUDE  AND  LONGITUDE  OF  STATIONS 

•/) 

9006 

FORMAT  (/*  U 

COMPONENT  V  COMPONENT  AT  SIGMA  LEVELS*/) 

9007 

FORMAT  (//* 

THE  ANCHOR  PT.  IS  AT  LAT  **F9.3/* 

AND  L0NG=*F9.3) 

9010 

FORMAT  (3X/8F6.1) 

9031 

FORMAT  (1X/33F4.0) 

RETURN 

END 

SUBROUTINE  TOPO(NUM) 

READ  AND  COMPUTE  TOPOGRAPHY  AT  GRID  POINTS 
LAST  REVISION  OCTOBER  *84. 


L.!|.  ■  L-  ■  ^  A.  ^ 


.  *  •  ,  •  i  »  *  •  •  • 
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IF  NUN=0  READS  TERRAIN  HEIGHTS  FOR  ALL  GRIDS. 

IF  NUM  .GT.  0  PICKS  TERRAIN  HT S  /  CALLS  SETBLT  TO  ESTABLISH 
BNOT  LTR  TOP/  AND  COMPUTES  RELATIVE  MTS  <RMS)  FOR  PROPER  GRID. 

COMMON/ LIMIT S/NCOL/NROW/NLVL/NCOLNI/NROWMI 
COMMON/CTOP/  MCRS/NCRS/MMEO/NMEO/MFIM/NFIN/NGRIO 
COMMON /RARS/RHS( SO/ 26/6) 

COMMON/CSFC/SFCHT( 50/26) /SIGMA (6) 

COMMON  /BLHT/  BlT ( 50/26) / HSI TE/  AVTHK/  SLFAC/STHK/BLGRX/BLGRV 
COMMON  /GROUND/  TcRLIM 
COMMON  /PRLIM/  11/  12 

DIMENSION  HTCRS(S0/26)/  HTMEDC SO/26) /  HTFlN(S0/26) 

C  TO  ACCOUNT  FOR  STABLE  FLOWS/  THE  LOWEST  SIGMA  SFCS  SHOULD 
C  INTERSECT  HIGH  TERRAIN.  THE  LIMIT  FOR  THIS  INTERSECTION  IS 
C  TERLIM  (IN  M). 

2  F0RNAT(8F10.2) 

3  F0RMAT<AX/-2P14F5.0) 

4  FORMAT(//SX/21FS.0) 

6  FORNAT(4X/-2P19FS.0) 

PRINT  9001 /NUM 

9001  FORMAT  (/'  BEGIN  SUBROUTINE  TOPO/  NUN«'I3) 

IF  (NUM.GT.O)  GO  TO  10 

C  READ  TERRAIN  HEIGHT  VALUES  AT  GRID  POINTS  IN  METERS/  ALL  GRIDS 
PRINT  9006 
PRINT  9003 

C  IN  HEIGHT  DATA  FILE  NORTHERN  ROW  IS  FIRST/  SO  INVERT  ORDER. 

C  READ  AND  PRINT  HEIGHTS  AT  COARSE  GRID  POINTS 
DO  8  JsI/NCRS 
JR  =  NCRS  ♦  1  -J 

REA0(1/2)  (HTCRS(I/JR)/I-1/MCRS) 

8  CONTINUE 

DO  118  J  -  1/NCRS 
JR  =  NCRS+1-J 

C  PRINT  4/  (HTCRS(1/JR)/I  «1/MCRS) 

PRINT  4/  <HTCRS<I/JR)/I  «I1/I2) 

118  CONTINUE 

C  READ  AND  PRINT  MEDIUM  GRID  HEIGHTS 
IF  (NGRIO  .LT.  2)  GO  TO  120 
PRINT  9004 
DO  9  J=1/NME0 
JR  =  NMEO  ♦  1  -J 
REA0(1/2)  (HTMEO(I/JR)/I-1/MMEO) 

9  CONTINUE 

DO  119  J  =  1/NMEO 
JR  *  NME0+1-J 

PRINT  4/  (HTMEO(I/JR)/I  -1/MNEO) 

119  CONTINUE 

120  CONTINUE 

C  READ  AND  PRINT  FINE  GRID  HEIGHTS 
IF  (NGRIO  .NE.  3)  GO  TO  214 
DO  210  J=1/MFIN 
JR  =  NFIN  +1  -J 

REA0(1/2)  (HTFIN(I/JR)/I»1/HFIN) 

210  CONTINUE 

PRINT  9005 
DO  212  J=1/NFIN 
JR  =  NFIN+I-J 

PRINT  4/  (HTFIN(I/JR)/I*1/MFIN) 

212  CONTINUE 
214  CONTINUE 
GO  TO  ISO 


10  CONTINUE 

00  IS  J=1^NR0U 

00  15  I=1/NC0L 

IF  (NUN  .NE.  1)  GO  TO  11 

SFCHT<I,J)=HTCRS<I»J) 

11  CONTINUE 

IF  (NUM  .NE.  2)  GO  TO  12 
SFCHT {I/J)=MTMED(I» J) 

12  CONTINUE 

IF  (NUM  .NE.3)  GO  TO  13 
SFCHTCI^J)  =HTFIN<I,J) 

13  CONTINUE 
15  CONTINUE 

C**  SET  8N0Y  LAYER  TOP  (ARRAY  BLT). 

CALL  SETBLT 

C  DENOTE  GEOMETRIC  HEIGHT  ABOVE  TERRAIN  BY  RHS 
00  67  J=1#NR0U 
00  67  I-1/NC0L 

IF  (SFCHTd/J)  .LE.  TERLIH)  THEM 
2VAR  =  BLTd/J)  -  SFCHTd^J) 

00  Ksl^NLVL 

RHSd^J/K)  -SI6HA(K)  *  ZVAR 
ENO  00 
ELSE 

ZVAR  =  BLTCI^J)  -  TERLIM 
00  Ksl^NLVL 

RHSd^J/K)  -SIGHA(R)  *  ZVAR 

C  NEGATIVE  VALUES  OF  RHS  INDICATE  SIGMA  SFC  INTERSECTS  TERRAIN 
IF  <<RHSd/J/K)*TERLIM)  .LT.  SFCHTd/J})  RHSd^J/K) 

♦  =  -1.0 
ENO  00 
ENO  IF 
67  CONTINUE 
ISO  PRINT  9002 

9002  FORMAT  </'  ENO  OF  SUBROUTINE  TOPO'/) 

9003  FORMAT  <1H1/'  TERRAIN  HTS/  COARSE  GRID#  METERS'/) 

9304  FORMAT  (1H1/'  TERRAIN  HTS^  MEDIUM  GRID#  METERS'/) 

9005  FORMAT  <lHl/'  TERRAIN  HTS/  FINE  GRID/  METERS') 

9006  FORMAT  </'  PRINTOUT  IS  REVERSE  OF  INPUT  -  MAS  NORTH  ROM  1ST'/) 

RETURN 

END 

SUBROUTINE  SETBLT 

C**  THIS  SUBROUTINE  SETS  THE  HEIGHT  OF  THE  BNOT  LAYER  TOP.  AVTHR  IS 
C  AVER.  BL  THICKNESS  OVER  AREA.  SLFAC  CONTROLS  THE  SLOPE/  IF  0  THE 
C  TOP  IS  FLAT/  IF  1  THE  BL  TOP  FOLLOWS  THE  TERRAIN.  HSITE  IS  HT  OF 

C  THE  ANCHOR  POINT  (SITE)/  STHK  IS  THE  SMALLEST  BL  THICK  ALLOWED. 

C  BL6RX  IS  B  LYR  HT  GRADIENT  TO  E. 

C  BY  R.  M.  ENOLICH  SRI  INTNL 
C  LAST  REVISION  JUNE  '84 

DIMENSION  B(S0/26)/I6(S0/26) 
COMNON/LIMITS/NCOL/NROW/NLVL/NCOLMI/NROMMI 

COMMON/CVOS/  RCM/RMF/IV/OSCRS/IXCRS/JVCRS/IXMED/JYMEO 
COMMON  /SITE/  IXS/  JYS/  ThSITE/  IGRIO 

COMMON  /BLHT/  BLT(S0/26) /HSITE/  AVTHK/  SLFAC/STHK/BLGRX/BLGRY 
COMMON/CSFC/  SFCHT(S0/26)/  SIGMA(6) 

COMMON  /PRLIM/  11/  12 
PRINT  9001 
THK  s  AVTHK 

IF  (IGRIO  .GT.  1)  THK  »  THSITE 
IF  (IGRIO  .NE.1)  GO  TO  5 
BLX  sBLGRX 


BLV  =ei.GRr 

IX  =  IXCRS 
JY  «  JYCRS 

5  continue 

IF  (IGRIO  .NE.  2)  GO  TO  6 
BLXs  BLGRX/(RCM) 

BLYs  BLGRY/(RCN) 

IX  s  IXMEO 
JY  =  JYMEO 

6  CONTINUE 

IF  (IGRIO  .NE.3)  GO  TO  7 
BLX-  aLGRX/(RCN*RMF) 

BLY*  BL6RV/(RCM*RNF) 

IX  s  IXFIM 
JY  =  JYFIN 

7  CONTINUE 
ITER  *  0 

10  ITER  =  ITER  +  1 
SUM1  s  0.0 
Q1  *  0.0 

DO  SO  I  s1«NC0L 
00  SO  J  >  UNROU 

BLT<I#J)  *  THK  ♦  (SLFAC  *  SFCHT(1/-J>>  ♦  (1.0  -SLFAC)  *HSITE 
C  ADO  EASTWARD  GRAOICNT  TO  BLT  FROM  COL.  OF  ANCHOR  POINT 
BLTd^J)-  BLT(I«J)-F  (I-IX>*(BLX/FL0ATJ(NC0L>> 

C  too  NORTHWARD  GRADIENT  FROM  ROW  OF  ANCHOR  POINT 

8LT(I/J}-  BLTd^J)  *  (J-JY)*(BLV  /  FLOAT  J  (NROW) ) 

IF  (SFCHTd^J)  .GT.  (BLTd^JI)-  STHK  ))  BLTd/J)  *  SFCHTd^J) 
♦  ♦  STHK 

SUM1  »  SUM1  ♦  <6LTd«J)  -  SFCHTd^J)) 

01  =01  +1.0 

50  CONTINUE 

IFdGRIO.GT.1)  GO  TO  SI 
ATH  =  SUM1/Q1 
THX  *  THX  ♦  (AVTHK  -  ATH) 

THSITE  »  BLTdXS/JYS)  -  SFCHT  (IXS/ JYS) 

PRINT  9010/  AVTHK/ATH/  THSITE 
OIFF  =  ABSIAVTHK  -  ATH) 

IF  (ITER  .GT.  9)  GO  TO  S2 

IF  (IGRIO  .EQ.  1  .AND.  OIFF  .GT.  1.0)  GO  TO  10 

51  CONTINUE 
IF(IGRIO.EQ.I)  GO  TO  S2 

C  MAKE  BL  THICKNESS  AT  ANCHOR  POINT  (THSITE)  THE  SAME  FOR 
C  MED  ANO  FINE  GRIDS  AS  IT  WAS  FOR  COARSE  GRID 
ATH=SUM1/01 

THSITE2=BLTdXS/ JYS)  -  SFCHTdXS/ JYS) 

THK«THK  ♦  (THSITE  -  THSITE2) 

0IFF2=A6S<THSITC  -  THSITE2) 

PRINT  9010/  AVTHK/ATH/THSITE2 
IF(ITER.GT.9)  GO  TO  52 
IF(DIFF2.GT.1.0)  GO  TO  10 

52  CONTINUE 

DO  55  JP  =  l/NROW 
00  55  IP  *  1/MCOL 

BdP/JP)  »  BLTdP/JP) 

IB(IP/JP)=  JNINT(B(IP/JP)) 

55  CONTINUE 

PRINT  911S/IGRI0 
00  60  JP  =  l/NROW 
JR  a  NROW+  1  -JP 

60  PRINT  9105/  (  IB(IP/JR)/IP=I1/I2) 
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00  65  JP-  I^NROU 
DO  65  1P=  I^NCOL 

BdP/^JP)*  (BLT<IP,JP)  -SFCHTdP/ JP)  ) 

IB(IP^JP)>  JNINT(a(IP/JP)) 

65  CONTINUE 
PP|NT  9020 
00  70  JP=  I^NROW 
JR=  NROU  +1  -JP 

70  PRINT  9105#  (IB<IP#JR)#IP=I1 #12) 

PRINT  9002 

9001  FORMAT  <1M1#‘  BEGIN  SUBROUTINE  SETBCT'/) 

9002  FORMAT  (//*  END  OF  SUBROUTINE  SETBLT'/) 

9010  FORMAT  <*  INITIAL  AV.  THICKNESS#  M=*F10.1# 

♦  *  ACTUAL  AV.  THICKNESS  ='F10.1# 

♦  '  SITE  THICKNESS  *'F10.1/) 

9020  F0RNAT(1H1#*BN0V  LAVER  THICKNESS  IN  M*/) 

9100  FORMAT  (/SX#22FS.0) 

9105  FORMAT  (/1X#33IA) 

9115  FORMAT  <1H1#*  HEIGHT  OF  BNOY  LAVER  TOP#  M#  GRID  ='I3  > 

RETURN 

END 

SUBROUTINE  BALSCNITER) 

C*****TH1S  IS  VERSION  11#  OCTOBER  '84. 

C  THIS  ROUTINE  BALANCES  DIVERGENCE  TO  VALUES  IN  ARRAY  DO  (OR 
C  TO  OOIJsO)  ANO  VORTICITY  TO  ARRAY  VT(I#J>. 

C  FOR  WIND  SPEED  IN  MRS.  OIV  AND  VORT  ARE  SCALED  TO  UNITS 
C  10  -6  SEC-1.  THE  METHOO  USES  DIRECT  VECTOR  ALTERATIONS. 

C  THIS  FORM  FOR  RECTANG  GRID  OMITS  TRIG  FUNCTIONS. 

C  THE  FLUX  FORMULATION  IS  USED  FOR  FINITE  DIFFERENCES.  FOR  SIGMA  LAVERS 
C  COMPUTE  NON-OIV  NINOS  FOR  HINDS  HEIGHTED  BY  THICKNESS  OF  LAVER. 

C  ASSUME  SIGMAOOT  *0.  INDICES  IN  ARRAYS  (I#J#K)  ARE  I*COLUHN# 

C  J«RON#  K*L£VEL;  PT  <1#1#1)  IS  AT  SM  CORNER  AT  GROUND. 

C  FOR  COMPUTATION  BOXES#  INDICES  REFER  TO  SW  CORNER  OF  BOX. 

C  IVORT  CONTROLS  USE  OF  VORTICITY.  IFs2  VORT  IS  NOT  HELD 
C  CONSTANT. 

C  BY  R.M.  ENOLICH#  SRI  INTN'L#  1ST  VERSION  FOR  LAYERS  JUNE  '82. 

DIMENSION  VT(50#26)#01(SO#26)#VO(50#26)#U1 (50#26)#V1(50#26) 
DIMENSION  UN(50#26)#VN(SO#26)#rHK(50#26> 

DIMENSION  IFXPT(50#26) 

COMMON  /CSFC/  SFCHT(S0#2B)#SI6NA(6) 

COMMON  /UARS/U(S0#26#6)#UA(S0#26#6)#V(50#26#6)#VA(50#26#6) 
COMMON/ FARMS/ ZT0P#0S#0SIGMA#NL VLM1#XHT1#XHT2#X1# VI# 

♦  X2#V2#UG#VG#RATIO#TOSI 

COMMON  /CVOS/  rcn#rnf#iv#oscrs#ixcrs#jvcrs#ixmed# 

♦  JYMEO#ISFIX#JYFIN 

COMMON  /CTOP/  MCRS#  NCRS#  MMEO#  NMED#  MFIN#  NFIN#  NGRIO 
COMMON  /LIMITS/NC0L#NR0U#NLVL#NC0LN1#NR0UN1 
COMMON  /SITE/  IXS#  JVS#  THSITE#  IGRIO 
COMMON  /RARS/RHS(S0#26#6) 

COMMON  /PRLIM/  II#  12 
IVORT  *  2  !  IGNORE  VORTICITY 

PRINT  9002 
GS  »  DS  *  1.0E-05 

C  USE  GRID  SPACING  IN  100'S  OF  KM.  OS  IS  IN  M. 

GSI  >  10.0/GS  !  FOR  PROPER  SCALING 

C  FOR  RECTANGULAR  GRID  OMIT  TRIG  FUNCTIONS  USED  PREVIOUSLY 
C  ASSIGN  PTS  WHERE  INITIAL  NINO  ANALYSIS  IS  HELD  FIXED 
IF  (IGRIO  .NE.  1)  GO  TO  10  !  FOR  COARSE  GRID 

CALL  SET0BLARRY(0#  IFXPT#  NCOL#  NROW) 

C  IFXPT(11#8)  *1 

10  CONTINUE 


c 


IF  (IGRIO  .NE.  2)  GO  TO  15  1  FOR  MEDIUM  GRID 

CALL  SETOBLARRY<0«  IFXPTx  NCOL/  NROW) 

IFXPT(  /  )  =  1 

IS  CONTINUE 

C  PRINT  POINTS  WITH  FIXED  WINDS 
DO  25  J  =  1/NROW 
DO  25  I  -  UNCOL 

IF  (IFXPTd^J)  .60.  1)  PRINT  9582/  I/J 
25  CONTINUE 

C  ARRAYS  U/V/RHS  ARE  WRITTEN  <COLS/ ROWS/ L E VEL S > 

C  TRANSFER  NINOS  TO  20  ARRAYS 
DO  800  L=2/NLVL 

DO  35  J=1/NR0W 
DO  35  I-1/NC0L 

UN<1/J)=  U(I/J/L) 

VN(I/J)s  V(l/J/L> 

35  CONTINUE 

CALL  SET0eLARRY(0.0/0X  /NCOL/NROW) 

CALL  SET0BLARRY(0.0/VT  /NCOL/NROW) 

CALL  SET0BLARRY(0.0/V0  /NCOL/NROW) 

C. COMPUTE  LAYER  THICKNESS  AND  MULTIPLY  WIND  COMPONENTS 
00  40  J  sl/NROW 
00  40  I  sl/NCOL 
LA  =  L 

IF  (LA  .GT.  NLVL)  LA  s  NLVL 
HTA  3  RHS<I/J/LA) 

LB  =  L  "1 

IF  (LB  .LT.  1)  LB 

HT8  =  RHS(I/J/LB) 

THK(I/U)  =  0.5  *(MTA  -HTB)  *  0.01 
IF  (THKd/J)  .LE.  0.)  THKCI/J)  *1.0  !  FOR  NEC.  RHS 

c  UNITS  OF  Thickness  are  hundreds  of  m  for  convenience 

C  SET  initial  NINOS  BEFORE  ALTERATIONS 
UKI/J)  «  UNd/J) 

VKI/J)  »  VNd/J) 

C  HEIGHT  NINOS  WITH  THICKNESS  OF  LAYER 
UN(I/U)  =  UKI/J)  *  THK(I/J) 

VNd/J)  *  Vid/J)  *  THKd/J) 

43  CONTINUE 
C  PRINT  9520 

C  00  45  J  *1/NR0H 

JP.  =  NROW+I-J 

C  45  PRINT  9102/  (THK(I/JP)/I  *11/12) 

C  COMPUTE  ORIGINAL  DIVERGENCE  AND  VORTICITY 

00  170  J  *1/NR0WM1 
00  170  I  »1/NC0LM1 

UE  «  0.5  •  (UN(I>1/J)  ♦  UNd  +  l/J^D) 

UW  *  0.5  *  (UN(I/J)  +  UNd/J+D) 

VSO  =  0.5  *  (VN(I*1/J)  ♦  VNd/J)} 

VNO*  0.5  *  (VN(I/J*1)  +  VN(I+1/J41)) 

DUE  =  GSI  *  (UE  -  UW) 

OVN  *  GSI  *  (VNO  -  VSO) 

Old/J)  =  DUE  ♦  OVN  !  OIV/  UNITS  ARE  10-6  SEC-1 

IF  dVORT  .60.  2)  CO  TO  170 

VE  *  0.5  *  (VN(I41/J)  ♦  VN(I*1/J^1)) 

VW  »  0.5  *  (VNd/J)  ♦  VN(I/J*1)) 

USO  *  0.5  •  (UN(I-»1/J)  *  UNd/J)) 

UNO  =  0.5  *  (UN(I/J*1)  ♦  0N(I^1/J*1)) 

OVE  =  GSI  *  (VE  -  VW) 

OUN  *  GSI  •  (UNO  -  USO) 

VT(I/J)  *  OVE  -  OUN  !  VORTICITY 


C  1^2 


C  CONTINUE 

PRINT  9570 
00  173  J  >1/NR0W 
JP  =  NR0W^1-J 

73  PRINT  9100#  <VT(I/JP>»I  =IUI2) 

PRINT  9571 
DO  172  J  >1fNR0M 
JP  =  NR0W^1-J 

92  PRINT  9100#  (OI(I#JP)#I  -11#I2> 

FOR  NONOIVERGENCE  SET  OOIJ  <0.0 
OOIJ  <  0.0 
LG  <  0 

RA  <  0.4  !  RELAXATION  FACTOR 

0  LG  »  L6*1 

00  500  J  <1#NR0WH1 
00  500  I  <1#NC0LH1 

UE  *  0.5  *  (UN<I>1#J)  ♦  UNd+lxJ+D) 

UM  <  0.5  •  (UN(1#J)  *  UN(1#J^1)} 

VSO  <  0.5  *  (VN(I-»1#J)  *  VN(I#J)) 

VNO®  0.5  •  <VH<I/J+1)  4  VN<I*1#J+1)> 
DUE  ®  GSI  *  (UE  -  UU) 

OVN  <  GSI  *  (VNO  -  VSO) 

OI(I#J)  <  OUE  ♦  OVN 

CUIJ  =  .05  *  GS  *<001J  -01<I#J)>  *RA 
CVIJ  ®  .05  *GS  *  (OOIJ  -  0Z(1#J))  *  RA 


IF 

(CUIJ  .LT. 

-1.0) 

CUIJ 

a  -1.0  ! 

IF 

(CUIJ  .GT. 

1.0) 

CUIJ 

a  1.0 

IF 

(CVIJ  .LT. 

-1.0) 

CVIJ 

a  -1.0 

IF 

(CVIJ  .GT. 

1.0) 

CVIJ 

a  1.0 

UNd^l/J)  a  UNd^l/ 

J)  ♦  CUIJ 

LIMIT  changes 


UN(I*1/J*1)  *  UN(I+1/J41)  ♦CUIJ 
UN(I#J>  ®  UN(I/J)  'CUU 
UN(I#J^1)  ■  UN(I/J+1)  -CUIJ 
VNdPI/J)  «  VN(I^1#J)  -  CVIJ 
VN(I/J>  »  VN(I/J)  -  CVIJ 
VN(I#J+1)  *  VN(I#J+1)  ♦  CVIJ 
VN(1+1#J+1)  »  VN(I+1/J+1)  ♦  CVIJ 
IF  (IVORT  .EQ.  2)  60  TO  490 
VE  ®  0.5  «  (VN(I^1#J)  ♦  VN(I^1#J41>} 

VH  a  0.5  *  (VN(I/J)  ♦  VN(1#J^1)) 

USO  <  0.5  *  (UN(I^1#J)  ♦  UN(I#J>) 

UNO*  0.5  *  (UN(I#J^1)  ♦  0N(I41#J+1)) 

DVE  »  GSI  *  (VE  -  VM) 

DUN  *  GSI  *  (UNO  -  USO) 

VO(I#J)  =  OVE  -  OUN 

CVIJ  =  .05  *  GS  *(VT(I#J)  -VO(I#J))  *RA 
CUIJ  *  .05  *GS  *(VT(I#J)  -  VO(I#J))  *  RA 
IF  (CUIJ  .LT.  -1.0)  CUIJ  *  -1.0  !  LIMIT  CHANGES 


IF 

(CUIJ  .LT. 

-1.0) 

CUIJ  a 

-1. 

IF 

(CUIJ  .GT. 

1.0) 

CUIJ  a 

1.0 

IF 

(CVIJ  .LT. 

-1.0) 

CVIJ  a 

-1.0 

IF 

(CVIJ  .GT. 

1 .0) 

CVIJ  a 

1.0 

UNd 

#J)  a  UNd 

#  J) 

♦  CUIJ 

UN(I+1#J)  »  UN(I+1/J)  ♦  CUIJ 


UN(I/J  +  1)  *  UNd/J^I)  -  CUIJ 


UN(I+1#J+1)  a  UN(I+1#J+1)  -  CUIJ 
VN(I+1/J)  a  VN(I+1/J)  ♦  CVIJ 
VN(I^1#J+1)  a  VN(I>1#J^1)  ♦CVIJ 
VN(I/J)  a  VN(I/J)  -  CVIJ 
VNd#J  +  1)  a  VNd#J  +  1)  -  CVIJ 
CONTINUE 


TO  KEEP  WINDS  0.0  WHERE  RHS  IS  NEGdlVE 


,v. 


■’.y  a  •  v*'-y  •  ^ •-""•y*.** 


ooooo  ooooooooo 


IF  (RMS(I,JyL)  .L-.  0.0)  THEN 
UNl ix j)  *  0.0 
VN(I/J)  =  0.0 
ENO  IF 

HOLD  ANALYZED  WIND  COMPONENTS  FIXED  AT  PTS  WHERE  IFXPT  =1 
IF  (IFXPTd/J)  .NE.  1)  GO  TO  503 
UNd/^J)  3  UidxJ)  *  THKd^J) 

VNCI/J)  =  Vld/J)  •  TMKd/j) 

)0  CONTINUE 

IF  (LG  .GT.  NITER)  GO  TO  540 
DO  530  J-2/NROWM1 
DO  530  I  =2»NC0LM1 

IF  <ABS<0DIJ  -Dld^J))  .GT.  50.0)  GO  TO  210 
IF  (A8S(VTd«J)  -VOd/J))  .GT.  50.0)  GO  TO  210 
;0  CONTINUE 
>0  CONTINUE 

PRINT  9570 
PRINT  9580 


DO  510  J«nNROW 
JP  =  NR0W+1-J 
PRINT  9100/ 
PRINT  9200/  CG 
PRINT  9571 
PRINT  9580 
DO  520  Jsl/NROW 
JP  =  NR0M+1-J 
PRINT  9100/ 
SUM1=0.0 
SUM2=0.0 
01*0.0 

DO  1040  J  *1/NR 
00  1040  1  *1/NC 


<VOd/JP)/I  *11/12) 


<OId/JP)/I  =11/12) 


DO  1040  J  =1/NR0W 
00  1040  1  =1/NC0L 

IF  (RHSd/J/L)  .LE.  0.0)  GO  TO  1040 
01  »  01  ♦  1.0 
UNd/J)  «  UNd/ J)/THKd/J) 

VNd/J)  *  VNd/ J)/TMKd/J) 

Uld/J)  *  U1<I/J)  ~  UNd/J) 
Vid/J)  =  Vld/J)  -  VNd/J) 
SUH1=SUM1  ♦  Ul(I/J) 

SUM2*SUM2  *  V1<I/J) 

1040  CONTINUE 

SUM1  *  SUM1/Q1 
SUM2  =  SUM2/01 

NORMALIZE  ORIG.  AVERAGE  VALUES 
DO  1045  J  *1/NR0U 
00  1045  I  =1/NC0L 

UN<I/J)  *  UNd/J)  *  SUM1 
VNd/J)  =VNd/J)  ♦SUMZ 

1045  CONTINUE 

PRINT  1145/  L 

1145  FORMATE*  U  COMP.  DIVERGENT/  LEVEL 
DO  1160  J*1/NROW 
JP  *  NR0W+1-J 

1160  PRINT  9150/  <Uld/JP)/I  =11/12) 

9150  FORMATE*  */33F4.1) 

PRINT  1155 

1155  FORMATE*  V  COMP.  DIVERGENT  *) 

DO  1170  J=1/NROW 
JP  =  NR0W+1-J 

1170  PRINT  9150/  EV1EI/JP)/I  =11/12) 

;  WRITE  LEVEL  4  DIV  WINDS  TO  OUTPUT  FILE 


OMIT  these 
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o  r>  r>  r>  o  o  o 


690 


IF  <L  .NE.  <•>  GO  TO  700 
00  690  J  =  1/  NROU 
JR  =  NROW  >  1  -J 

WRITE  (3*9065)  (U1 (I/JR>*I=1*NC0L) 

00  695  J  =  NROW 
JR  =  NROW  ♦  1  -J 
695  WRITE  (3*9065)  ( Vl( I  *  JR) *1-1 *NCOL) 

730  CONTINUE 

change  back  to  30  ARRAYS 

00  580  J=1*NR0H 
00  580  I  sI^nCOL 

U(I*J*L)>  UN(I*J) 

V(I*J*L)s  VN(I*J) 

580  CONTINUE 
800  CONTINUE 
PRINT  9003 

flftfift  r/)l4TT411IP 

9302  FORMAT  (//'  BEGIN  SUBROUTINE  BAL5  '/) 

9303  FORMAT  <//*  END  OF  SUBROUTINE  BAU5  */> 

9365  FORMAT  (10F8.1) 

9100  FORMAT  </lX*33FA,0) 

9102  FORMAT  (/1X*33F4.1) 

9200  FORMAT  </*  NUMBER  OF  ITERATIONS  =*I5) 

9520  FORMAT  LAYER  THICKNESS  IN  HUNDREDS  OF  M*/) 

9560  FORMAT  (1SH  DIVERGENT  WIND/) 

9561  FORMAT  (19H  NCN  DIVERGENT  WIND/) 

9565  FORMAT  (1H1*12M  U  COMPONENT) 

9566  FORMAT  (1H1*12H  V  COMPONENT) 

9581  FORMAT  (16H  ANALYZED  VALUES/) 

9570  FORMAT  <1M1*30H  RELATIVE  VORTICITY  10-6  SEC-1) 

9571  FORMAT  <1H1*22H  DIVERGENCE  10-6  SEC-1) 

9580  FORMAT  (16H  BALANCED  VALUES/) 

9582  FORMAT  (/'  POINT  WITH  FIXED  WIND  IS  COL  =*I3*'R0W  a'I3/) 
RETURN 

END 

SUBROUTINE  SETOBLARRY ( VALUE*ARRAr*NUN1 *NUM2) 

INITIALIZES  ALL  ELEMENTS  OF  ARRAY  TO  VALUE 
REVISON  SEPT.  1978 

DIMENSION  ARRAY(NUM1*NUM2) 

00  10  I«1*NUN1 
DO  10  J»1*NUM2 

ARRATd*  J)>VALUE 

10  CONTINUE 
RETURN 
END 
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PROGRAM  MADICr 

(Model  of  Atmospheric  Diffusion  In  Coiqplex  Terrain) 

BY  F.  L.  LUDWIG.  SRI  INT'L.  MENLO  PK..  CA  94025- -PHONE:  (415) 859-2915 
•nnS  INTERACTIVE  PROGRAM  IS  A  PUFF  SIMULATION  MODEL  FOR  A  SIMXE  PT. 
SOURCE  UNDER  CHANGING  METEOROLOGICAL  CONDITIONS.  WIND  FIELD  IS  GENERATED 
FROM  PRECALCULATED.  NONDIVERGENT  SOL 'NS  TO  A  SET  OF  NORMALIZED  LINEARLY 
INDEPENDENT  INPUTS  &  A  MEAN  SET  OF  INPUTS.  OCTOBER  1985  VERSION. 

LOGICAL  LOUTFL.KEYO.QUIT.DBOG 
INTECTR  SL 

PARAMETER  (KEY0=. FALSE.) 

PARAMETER  (INDX=9.  INDY=9.INDZ=5.NEIGN=9.NSTA=8) 

PARAMETER  (NRCPTX=20.NRCPTY=20.MXNPF=199) 

COMMON  /WINDOB/  NOPUFF.NFUNCT.DEP1H,NWINDS.DOTP(0:NEIGN)  . 

$  D0TX(0:1.0:NEIGN) 

COtWON  /WNDEIG/  UM(0;NSTA+1)  .\M(0:NSTA+1)  . 

$  UE(0;NEIGN.0:NSTA+1)  .VE(0:NEIGN.0:NSTA+1) 

COfWON  /PFFCON/  PUFINT(0:MXNPF.0:4).PF^AR(0:MXNPF.0:2).RSPACM. 

$  CONCEN I  0 :NRCPTX. 0  tNRCPTY. 0:5). GSIGZ (6)  . 

$  ALPHAZ(6)  .ALPHAy(6j.FEXP(0:90)  .RCPraX(0:NRCPTX)  . 

$  RCPTRY I  0  tNRCPTY)  .  XRCPO.  YRCPO 

COfWON  /WNDFLD/  WNDUVW  |  0 :  INDX.  0 ;  INDY.  0 :  INDZ.  0 : 2)  .  GSPACE. 

$  FRECAL(0:INDX.0:INDY.0:1.0:2.0:NEIGN). 

$  RHS  (0 ;  INDX.  0 :  INDY.  2)  .  XORIGN.  YCRIGN.  ^.IGN 

C0^t4C»«  /SOURCE/  XSOURC.YSOURC.ZSOURC.QSOURC 
COMMON  /LOGES/  LOUTFL.DBUG 
DIMENSION  VDISRO (6) .VDISZO (6) 

DATA  NHOUR.SL.DOTP(O)  /2*-1.1.0/ 

DATA  SIGYO.SIGZO.GOTACE. NOPUFF. GSIGY 
$  /40.0.  3..  6000.0.  0.  0.9/ 

SET  DBUG=.TRUE.  TO  GET  PRINTOUT  HELPFUL  IN  CHECKINC  PROGRAM 

DATA  XORIGN.  YORIGN.  ZORIGN.  DBUG 
$  /  -30000.. -30000..  0.0.  .FALSE./ 

DATA  ALPHAY  /O. 428.  0.301.  0.198.  0.128.  0.095.  0.065/ 

DATA  ALPHAZ  /0.025.  0.075.  0.112.  0.196.  0.231.  0.227  / 

DATA  GSIGZ  /I. 38.  1.07.  0.91.  0.72,  0.64.  0.575/ 

INPUT  BASIC  INFQRMATKXI  &  MAKE  SOME  REQUIRED  CALCULATICNS 

CALL  BASICS  (VDISRO.VDISZO.  IHOUR) 

CTTTINC  READY  FC«  NEXT  HOUR'S  MET'L'G'CAL  INPUTS--ONLY  SET  UP 
TO  RUN  FOR  6  IKXJRS  (0  TO  5)  . 

0  PRINT  *.  'FOR  HR  FROM  '.IHOUR.'  TO  '.IHOUR+1 
NH0UR=NH0UR+1 
IF  (NIK)UR.GT.5)  GO  TO  86 

INPUT  METEOROLOGICAL  INFORMATIW 

CALL  MET  IN  (QUIT.  ISTAB.  IHOUR.  ALPHAY.  SEPMAX) 

IF  FLAG  SET  IN  MET  IN.  QUIT 

IF  (QUIT)  GO  TO  86 

IDENTIFY  APPROPRIATE  FILE  AND  READ  WIND  FIELD  SOL 'NS 


CALL  WINDDO 


START  TIME  LOOP- 


.  ^'*•1 
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KD-RtCS  619 


UNCLASSIFIED 


A  NODEL  OF  AIRFLON  AND  DIFFUSION  IN  COHPLEX  TERRAIN 
(HADICTXU)  SRI  INTERNATIONAL  HENLO  PARK  CA  F  L  LUDHIQ 
NOV  85  ARO-19638.  S-QS  DRA029-83-K-8689 


onr>  non  noo  oooo^^  oomooo  non  non  non  non  non  non  non 


DO  1270  ITIME=0.  5 

INTERPOLATING  INNER  PRODUCTS  TO  THIS  TIME  STEP 
CALL  DOTINT  (ITIME) 

IDENTIFY  CELLS  WHERE  WIND  IS  UNCALCULATED  YET 
CALL  WNDBAR(WNDUVW.YGRIGN) 

IF  STABILITY  CHANCED,  RECALCULATE  VIRTUAL  TRAVEL 
IF  (SL. NE.ISTAB)  CALL  VIRTVL (ISTAB, SL) 

FLAG  FOR  OUT-C^^-BOUNDS  PUFFS 
L0UTEL=.  FALSE. 

ADVECT  NEWLY  (XNERATED  PUFFS 

CALL  ADV  1ST  (LASTT¥,VDISRO,VDISZO,  ISXAB) 

ADVECT  ALREADY  EXISTING  PUFFS 
CALL  ADV  2MD 
MERGE  AMD  PURGE  PUFFS 

CALL  ESC  PKG  (LASTPF.SEPMAX) 

. END  OE  TIME  LOOP . . 

270  CONTIHUE 

2XR01NG  CONCENTRATIONS  AT  RECEPTORS 
DO  1330  I-O.NRCPTX 
DO  1330  J=0.NRCPTY 
CONCEN (I , J . NHOUR) =0 
330  CQNIINUE 

DETERMINE  AFFECTED  RECEPTORS  FOR  EAOI  PUFF  &  ACCUMULATE 
CONCENTRATIONS 

CALL  INFLU  (GSIGY.NHOUR.ISTAB) 

GRAPH  OUTPUT 

CALL  GRAFF  (NMOUR.raUC) 

SAVING  PRECEDING  STABILITY  FOR  COMPARISON  WITH  NEXT  HOUR’S 

SL^ISTAB 
GO  TO  410 

PRINTING  RESULTS 

86  CALL  OUINOW(NHOUR,SL) 


oono  noooo  non  tow  non  non 


SUBROUTINE  ADVECT  (XX.  YY.ZZ.  TRAVEL) 

THIS  SUBROUTINE  ADVECTS  PUFFS  IN  5  2-MIN  TIME  STEPS 
LOGICAL  LOUTFL.OBUG 


PARAMETER  (NEIGN=9, INDX=9. INDY=9. INDZ=5) 

COMMON  /WINDOB/  NOPUFF. NFUNCT.  DEPTH. NWINDS. DOTP  (0  :NEIC»I)  . 
$  D0TX(0:1.0:NEIGN) 

COMMON  /WNDFLD/  WNDUVW(0:INDX.0:INDy.0:INDZ.0:2) .GSPACE. 

$  PRECAL (0:INDX.0;  INDY.  0:1,0: 2. 0 :NEIGN)  . 

$  RHS(0:INDX.0:INDy.2)  .XORIGN.YORIGN.ZORIGN 

COMOl  /LOGES/  LOUTFL.OBUG 
TRAVEL=0 

DO  2590  ISTEP=0,4 

CALL  WIND(XX.YY.2Z.01.U2.U3) 


CHECK  FOR  OUT  OF  BOUNDS 


590 

500 


IF  (LOUIFL)  GO  TO  2600 
xx=3ac+ui*o .  2 
yy=yy+U2*o.2 

CALL  INDXY(XX.Yy.LX.LY.LOUrFL) 
ZZ=ZZ+U3*0.2 


LOUIFL)  00  TO  2590 
ZZ .  LT .  BBS  (LX .  LY .  1)  ) 
ZZ.GrT.RHS(LX.Ly.2 
^  r=TRAVEL+0 . 2  *SC^' 


ZZ=RBS(LX,LY.  1) 
ZZ=RHS^,LY.  2) 
(U1*U1+U2*U2) 


SUBROUTINE  ADV  1ST  (LASTPF.  VDISRO.  VDISZO,  ISTAB) 

THIS  SUBROUTINE  ADVECTS  THE  PUFFS  VHEN  THEY  ARE  1ST  GENERATED 
—TAKING  INTO  ACCOUNT  THAT  MOST  DO  NOT  MOVE  FCR  THE  ENTIRE 
TIME  STEP. 

LOGICAL  DBUG.  LOUIFL 
PARAMETER  (MXNPF=199.NEIGN=9) 

PARAMETER  (NRCPTX=20,NRCPTY=20,  INDX=9.  INDY=9,  INDZ=5) 

COrmcm  /WNDFLD/  WNDUVW (0 : INDX.O: INDY,  0:INDZ.  0:2)  .GSPACE. 

9  PRECAL (0: INDX.O: INDY, 0:1,0: 2. 0 :NEIG^  , 

9  BBS  (0 :  INDX.  0 :  INDY.  2) .  XORIGN.  Y(»IGN,  ZCKIGN 

COftKW  /SOURCE/  XSOURC.YSOURC.ZSOURC.QSOURC 
COmON  /WINDOB/  NOPUFF, NFUNCT, DEPTH,  NWINDS,  DOTP  (0  :NEIGN)  , 

9  DOTX(0:1.0;NEICW) 

aXtKm  /PFFCCW/  PUFINT(0:MXNPF,0:4),PFFPAR{0:MXNPF.0:2).RSPACM. 

$  C(»JCEN(0:NRCPTX.0:NRCPTY,0:5)  ,GSIGZ(6)  , 

$  ALPHAZ(6)  ,ALPHAY(6)  .FEXP(0:90)  ,RCPTRX(0 :NRCPTX)  , 

$  RCPTRY  (0  ;NRCPTY)  .  XRCPO.  YRCPO 

COMON  /LOGES/  LOUTFL.DBUG 
DIMENSIW  VDISRO  (6)  .VDISZO (6) 

IF  (NOPUFF. LE.l)  THEN 

CALL  INDXy(XSOURC,YSOURC,LX.LY,LOUTFL) 

IF  (LOUIFL)  STOP  'SOURCE  OUT  OF  BOUNDS’ 

ZSOURC=ZSOURC+RHS (LX, LY, 1) 

END  IF 

CALL  WIND  (XSOURC. YSOURC. ZSOURC. U1 , U2 . U3) 

WNSPD  UNITS- -M/(10-MIN)  .SEPNI  SET  SO  THAT  SEPARATION  IS  APPROX 
=  TO  SIGMAY  AFTCR  3  MINUTES.  20  METERS.  WHICHEVER  IS  SMALLER. 

WNDSPb=SQRT (U1*U1+U2*U2) 

SEPNI=  (ALPHAY  (ISTAB)  *  (VDISRO  (ISTAB)  +0 . 3*WNDSPD)  **0.9) 

IF  (SEPNI.lt. 20.0)  SEPNI =20.0 
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GET  WKD  AT  SRCE  &  MO  NEW  PFS  (SEPNI  SPCNG)FOR  10-MIN  PERIOD. 
SEE.  SUBR.  DEFINE  FOR  PUFF  PARAM.  DEFINITIONS 


NEWPFF=1 . 0+ (MNDSPD/SEPNI) 

IF(DBUG)  PRINT*. 'SPD  AT  SRCE  &  OUTFLG' .St?lT(Ul*Ul+U2*U2) .LOUTFL 
NPUFFS=MXNPF -NOPUFF 


NEWPFF.NOHJFF 


NPUFFS=MXNPF -NOPUFF 

IF(DBUC)  PRINT*. ***********  NO  NEW40LD  *.  NEWPFF.NOHJFF 
IF  (N^FF.LT.NPUFFS)  NPUFFS=NEWPFF 
NEXT=NOPUFF+l 
LASTPF=NOPUFF+NPUFFS 
C 

C  GETIMG  INITIAL  VALUES 
C 

DO  900  IPUFF=NEXr.LASTPF 

PFFPAR (IPUFF. 0) =600 .0*QSOURC/NPUFFS 
PFFPAR  TPUFF. 1 1 =VDISR0 (ISTAB) 

PFFPARiTPUFF. 2 i=VDISZ0 (ISTAB) 

PUFINT (IPUFF . 0  =DEPTH 
PUFINT(IPUFF.4)=0 
900  CCMTINUE 
XO=XSOURC 
YO=YSOURC 
ZO=ZSOURC 
'ISAVEL=0.0 

CALL  DEFINE  (LASTPF.XO.YO.ZO.TRAVEL) 

PUFINT (LASTPF . 4) =0 . 0 
TSTEP=1 . 0/NPUFFS 
DO  950  IPt^=LASTPF-l.NEXT.-l 
CALL  INDXY(XO.YO.LX.LY.LOUIFL) 

IF  (.NOrr.LOOTFL)  THEN 

CALL  WIND(X0,Y0.Z0.U1.U2.U3) 

WNDSPD=Sg|RTmi*Ul-*U2*U2) 

X0=X0+U1*TSTEP 

Y0=Y0+U2*TSTEP 

Z0=Z0+O3*TSlEP 

TRAVEL=TRAVEL+WNDSPD*TSTEP 

C  _  _ _ 

C  DEFINE  PUFF  PARAMETERS  AFTER  ADVECTION. 

C 

CALL  DEFINE (IPUFF.XO.YO.ZO, TRAVEL) 

act:=age+tsto 

PUFINT  (IPUFF .  4)  =ACE 
PFFPAR  (IPUFF.  0)  =0 . 0 

END  IF 

IF(Z0.GT.RHS(LX.LY.2))  Z0=«HS  (LX.LY,  2) 
IF(ZO.LT.RHS(LX.LY.l))  Z0=«HS (LX. LY.  1) 

IF(DBUC.AND.MC»(IPUFF,15)  .EQ.l)  PRINTeOOO.  IPUFF, LOOTFL. 

9  (PUFINT (IPUFF.  JJP)  ,  JJP=0, 4) .  (PEFPAR (IPUFF.  KKP)  . KKP=0. 21 

6000  FCRMATC  PUFF-STUFF  (ADVIST)  ”#.aJr?.MAXMIX.X.Y,Z.ACE,C, VIZ.'' 

$  .1X.I2.L3.6F8.0,2E12.2) 

950  COiriNUE 


UOU  S  uuu 


SUBROUTINE  ADV  2ND 

UnS  SUBROUTINE  ADVECIS  OLD  PUFFS  FOR  A  TIME  STEP. 

LOQICAL  DBUG 

PARAMETER  {NEIGN=9.M>CNPF=199.NRCFrX=20.NRCPrf=20) 

PARAMETER  (INDXs9. INDY=9. 1NDZ=S) 

COMMCM  /WINDOB/  NOPUFF. NFUNCT, DE^.  NWINDS. DOIP  (0  :NEIGN)  , 

$  D0TX(O:1.0:NEIGN) 

CXM10N  /PFFCON/  PUFINT(0 ;MXNPF. 0:4)  .PFFPAR(0 :MXNPF,  0 : 2)  .RSPACM. 
OL  CONCEN(0:NRCPTX.0:NRCPTY.0;5)  .GSIGZ(6) , 

$  ALPHA2(6).ALPHAY(6),FEXP(0:90).Ra>TRX(0:NRCPTX)  . 


$  RCPTOY(0:NRCPTY)  .XRCPO.YRCPO 

C0»«40N  /WNDFLD/  WNDUVW (0 : INDX. 0 : INDY. 0 : INDZ. 0 : 2) .GSPACE, 

$  PRECAL(0;INDX.0:INDY.0;1.0:2.0;NEIGN) . 

$  RH^:INDX.0:INDY.2).X0RIGN.Y0RIGN.ZCRIGN 

COfWCW  /LOGES/  LOUTFL.DBUG 
DO  1000  IPUFF=O.NOPOFF 

ADVECTNG  OLD  PFS 


00 


IF  (PFFPAR(IPUFF.  0) .EQ.  0)  GO  TO  1000 
XX=PUFINT(IPUFF.  1) 

YY=PUFINT(IPUFF.  2) 

ZZ=PUFINT(IPUFF.  3) 

CALL  INDXY(XX.YY,LX.LY.LOUTFL) 

IF  (LOUTFL)  THEN 

PFFPAR (IPUFF . 0) =0 . 0 
GO  TO  1000 
ELSE 


IF 

IF 


(ZZ.LT.RHS(LX,LY.l))  ZZ=FHS <LX. LY. 1) 


(ZZ.GT.RHSjLX.LY,2))  ZZ=RHS ^LX. LY. 2) 

CALL  ADVECT(XX.YY.ZZ.i^VEL)  ' 

CALL  DEFINE(IPUFF.XX.YY.ZZ.TRAVEL) 

»EQ.l)  PRIWT6000.  IPUFF. LOUTFL. 
(POTIMT(IPUFF.  JJP)  .  JJP=0.4)  .  (pfepAR (IPUFF. KKP)  ,KKP=0, 2) 

CaND  Xc 

FORMATC'  P^;ST^{ADV2ND)— #,OUT?,MAXMIX.X.Y.Z.AOT.Q.VTZ.VTX 
.IX. I2.L3.6F8.0,2E12.2) 


SET  MATERIAL  IN  PUFF  TO  0  FOR  FUTURE  REMOVAL  IF  OUT  OF  BOUNDS 


IF  (LOUTFL)  PFFPAR  (IPUFF.  0)=0 
1000  CONTINUE 
RETURN 
END 


SUiltOUnNE  BASICS  (VDISRO.VDISZO.  IHXJR) 

C  HAS  ROUTINE  REAZ3S  IN  BASIC  INFORMATION  AND  MAKE  SOME 

C  REQUIRED  CALCULATIONS 

LOGICAL  DBUG.LOUTFL 

PARAMETER  (NEIGN=9,MXNPF=199,NRCPTX=20,NRCPnf=20) 

COTMOI  /WINDOB/  NOPUFF,NFUNCT.DEP1H.NWINDS.DOTP(0:NEIGN)  . 

$  OOnC(0:l,0:NEIGN) 

COMIW  /SOURCE/  XSOURC.YSOURC.ZSOURC^QSOURC 

COM**!  /PFFCON/  PUFINT(0:MXNPF.0:4)  ,PFFPAR(0:MXNPF,0:2)  .RSPAOl. 

$  CONCEN(0;NRCPTX,0:NRCPTT.0;5) .GSIGZ(6) . 

$  ALPHA2(6).ALPHAY(6),FEXP(0:90),RCPTRX(0;NRCPTX), 

$  RCPTRY  (0  :NRCPTY)  .  XRCPO,  YRCPO 

C0»W0N  /LOGES/  LOUIEL.DBUG 
DIMENSI<»r  VDISRO (6)  .  VDISZO (6) 

DATA  SIGZO.  SIGYO 
$  /  3.0,  8.0  / 

DO  260  1=0.90 
C 

C  CALC  EXPS  AND  INITIAL  VIRTUAL  TRAVEL 
C 

IF  (I.GT.6  .OR.  I.EQ.O)  GOTO  250 

VDISZO (I)  =  (SIGZO/ALSkAZ (I) ) ‘ * (1 . 0  /GSIGZ (I) ) 

VDISRO (I) = (SIGY0/ALPHAY{I) ) ** (1 . 1111) 

250  FEXP(I)=E3tP  (-0.1*1) 

260  CONTINUE 
C 

C  INPUT  OF  BASIC  GRID.  WIND  STATICXa  INFO  ETC 
C 

PRINT  *.  'RECEPTOR  SPACING  (M)?' 

ACCEPT  *.  RSPACM 

PRINT*.'  '.  RSPACM 

PRINT  *.  'HOW  MANY  WIND  SITES?' 

ACCEPT  *.  NWINDS 
PRINT*. '  '.  NWINDS 

PRINT  *.  'HOW  MANY  EMP.  ORTH.  FCINS7' 

ACCEPT  *.NFUNCr 
PRINT*.'  '.  NFUNCT 

IF  (NFUNCT. LE.  2*  (NWINDS  +1))  GOTO  340 
STOP  'TOO  MANY  EIGENVECTORS  SPECIFIED’ 

340  PRINT  *.  'SOURCE  X.Y.Z  (ABOVE  SFC)  IN  METERS?' 

ACCEPT  *.XSOURC.YSOURC.ZSOURC 
PRINT*.'  '.  XSOURC.YSOURC.ZSOURC 
CALL  GRIDXY  (DBUG) 

PRINT  *.  'HOUR?' 

ACCEPT  *.IHOUR 
PRINT*.'  '.  IHOUR 
C 

C  PUT  HR  BETWEEN  0  &  24 

C 

I»X1R=«(EXTHR  (IHOUR) 

C 

C  READ  EMPIRICAL  CRTHOGONAL  FUNCTI<»JS 
C 

CALL  EVCO 

RETURN 

END 


SUBROUTINE  CALC»N(I'nP. I8TAB,ZZ,TyFM»..QMULTF, II, JJ, I, 

$  SIGZ.NHDUR.HEUMX) 

C 

C  CALCUZAIES  OONCENTRAnON  GQNlSUfiUnOK  (LATERAL  EFFECTS  ALREADY 
C  ACC'NIED  FOR  IN  QMULTE)  ACOORPINP  TO  APFROERIATE  VERTICAL  MODEL 
C  ITXP— l»BOX,  2stmKQT.ECTED  A  3»REFLECTED 

C  GONCEN(I,J,K)— I,J=X,Y  RECEPTOR  IlOICES  FOR  Kth  HOUR  OF  SEQUENCE 
C  TO  ID^IFY  CONCENTRATION  (G/CU.M).  NOTE—  ZZ  IS  RELATIVE  TO  THE 
C  SFC  HEIGHT  IN  WS  ROUTINE .  ISTA»«XAB1LITY  CLASS;  Q^TF=  FACTOR  THAT 
C  INCLUDES  MATERIAL  CONTENT  OADIAL  SPREADING  EFFECTS.  IIAJJ  ARE  RECEPTO 
C  GRID  INDICES;  I^PUFF  «;SI(S&::^VERTICAL  STNDRD  DEV.;NHOUR  =  «  OF  HRS  SINCE 
C  SXART.HER£MX;=LOCAL  MIXING  DEPTH. 

C 

LOGICAL  DBUG.LOUIFL 

PARAMETER  (NRCPTX=20,NRCPTYa20,MXNPF-199,NEICN=9) 

GOFMON  /WINDOB/  NOPUFF.NFUNCT,DEPTH.NHIND6.DOIP(0:NEIGM) . 

«  D0TX(0:1.0:NEIGM) 

COFMXf  /PFFCON/  PUFINr(0:MXKPF.0:4)  .PFFPAR(0:MXNPF.0:2)  .RSPACM, 

$  CONCEN(0:NRCPTX.0:flRCPTY,0:5),GSItS(6), 

$  ALPHAZ(6).ALPHAY(6),FEXP(0:90).RCPTRX(0:NRCPTX). 

$  RCPTRY  (0  rNRCPTY)  .XRCPO.YRCPO 

C0M40N  /UXXS/  LOUTFL.DBUG 

IF  PBUG  .AND.  JM0D(I,15)  .EQ.O)  PRINT  *.  *  IN  CALCON* 

IF  (ITYP-2)  2720,  2770,  2810 
C 

C  BOX  MODEL 
C 

2720  IF(DEP1H,GT-P0FINT(I,  0))  THEN 

PFFPAR  (I ,  l|i  =  |^^^3^*TYW®L| ) /ALPHAZ  (ISTAB)  ) 

PUFINr(I,  0)^1ER^ 

END  IF 

OONCEN  (II ,  JJ,  NHOUR)  =COMCEM  (II ,  JJ,  NHOUR)  ♦ 

$  QMULTF*i.25/PUFINT(I,  0) 

GO  TO  2870 
C 

C  NO  REFLECTION  MODEL 
C 

2770  K=(5.0  •ZZ*ZZ)/(SIGZ*SIGZ)+0.5 

IF  (K,GT.90)  GO  TO  2870 

CCNCEN  (I  I ,  J  J,  NHOUR)  =  (QMULTE*FEXP  (K)  /SICZ)  +CONCEN  (I  I ,  JJ .  NHOUR) 

GO  TO  2870 
C 

C  REFLECTION  MODEL 
C 

2810  QZ=(2.0*HEREMX-ZZ)/SIGZ 

K=QZ*QZ*5.0+0.5 
IF  (K.GT.90)  GO  TO  2770 

CXXKEN  (1 1 ,  JJ,  NHOUR)  =  (QMULTF*FEXP  (K)  /SICZ)  +OONCEN  (I  I ,  JJ,  NHOUR) 

C 

C  GO  BACK  AND  GET  THE  UNREFLECTED  PART 
C 

GO  TO  2770 

2870  IFpBUG)  PRINT  6000, 1,  II,  JJ,CONCEN(II,  JJ.NHOUR) 

6000  FORMATC  PUFF  ',13,*  CUMULATIVE  CONCENTOATION  IN  CELL', 

$  213,'  IS  ',E12.3) 

RETURN 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  DEFINE  (IPUFE.  XX, YT,ZZ< TRAVEL) 

DEFINES  PARAMETERS  FOR  EACH  PUFF  —1ST  INDEX  IDENTIFIES  PUFF 
2ND  INDICES  IIXNTIEY  VARIOUS  CHARACIERISTICS  AS  SOU/MS: 
PUFIHT— 

0«=MAX  MIX  I^PTH  ENCOUNTERED  (M) 
I,2,3»X,Y,Z  COORDINATES  (M) 

4=  AGE  OF  PUFF  (MIN.) 

PFFPAR— 

O’^IATERIAL  IN  PUFF  fOM) 

1, 2-  VIRT  ISAVL  DIST.  FOR  SIGZ  &SIGY  (M) 

LOGICAL  LOUIFL.DBUG 

PARAMETER  (MXNPF=199,NRCPTX=20,NRCPTY=20) 


COM40N  /PEECOH/  PUFINT 
«  CONCEN 

«  ALPHAZ 

$  RCPTRY 

COMMON  /LOGES/  LOUIEL, 


C 

C 

c 


ION  /LOGES/  ] 

IF  (LOlnFL)  GO  TO  2680 

ASSIGN  PUFF  PARAMETERS  AT  END  OF  10-MIN  STEP 


0  :MXNPF,  0 :4)  , PFFPAR (0  :MXNPF,  0 :2)  .RSPACM, 
6  :raiCFTX.  0  rlACPTY,  0:5),  GSIGZ  (6)  , 

6)  ,ALPHAY(^  ,FEXPJ[0 :90)  ,RCPT»(0 :NRCPTX)  , 
6  :NRCPTY)  ,  XR^,  YR^ 

•BUG 


PUFINT  (IPUFF,  1 
PUFINTiIPUFF,! 
PUFINTi IPUFF,3 
P0FINriTPUFF,4 
PFFPAR  I  IPUFF,  1 
PFFPAR (IPUFF, 2 


=XX 
=YY 
=ZZ 

=PUFINr  (IPUFF,  4)  +10 
^>FFPAR  (IPUFF,  1)  ♦TRAVEL 
=PFFPAjmPOFF,  2) +TRAVEL 


6000 

2680 

C 


IF(DBUG  .AND.  (MOD (IPUFF, lj5)^.l|)  PRINI6000, 

«,  MAXMIX,  X,  Y,  Z,  ACE,  Q, 


F0RM/CT(1X, 'PUFF  PARAMS  mEFINE) 
OVTZ.VTY*  ,1X,IS,6F8.0,2E12.2) 
RETURN 
END 


C* 

C 


C 

c 

C 

C 


570 


SUBROUTINE  DOTINT  (ITIME) 

THIS  SUB  INTERPOLATES  BETWEEN  INNER  PRODUCTS  FOR  THE  BEGINNING 
AND  END  OF  THE  HOUR  TO  GET  VALUES  FOR  THIS  TIME  STEP 


LOGICAL  DBUG 
PARAMETER  (NEIGN=9) 

COr«C»I  /WINDOB/  N<»>UFF,NFUNCT.DEPTH.NWINDS.DOTP(0:NEIGN)  . 
0  D0rm0:1.0;NEICN) 

CO^WON  /LOOTS/  LOUTFL.DBUG 
DO  570  1=1.  NniNCT 


DOTP (IlfWnC (0. 1)  +  (0 . 5+ITTME)  +  (DOTX (1 . 1 
^^^F^^UG)  PRINT*,'  INNR  ,I,DOTP(I 


-D0TX(0.I))/6.0 


DOIP(0)=1.0 

RETU^ 


nonrioo  oooo 


SUBROUTINE  EVCO 

LOGICAL  DBUC.LOUIFL 
PARAMETER  JNEIGN=9,NSTA=8) 

C0M40N  /WINOOB/  IIOPUFF,MEUNCT,DEPTH.NWIMD6,DOIP(0:NEIGN)  , 

9  DOIX(0:1.0:NEIGM) 

COMMON  /WNDEIG/  UM(p:N^+l)  .VM(0:NS1A+1)  . 

$  UE(0:NEICN,0:N^-«^1).VE(0:NEICN,0:NSTA-«^1) 

COMttN  /LOGES/  LOUTEL.DBUG 

READS  EIGENVECTORS  AND  MEAN  WINDS. GGRRECTS  UNITS  &  REORDERS 
EV’S  SO  THAT  1ST  ONE  EXPLAINS  MOST  VARIANCE  ETC 

IVR£M>=11 

INVEI&44EIGN-NEUNCT 

IF  (INVEIG.lt.  1)  STOP  'TOO  MANY  EKXNVECIS  SPECIFIED* 

DO  10  K=O.NFUNCT 


INPUT  FILES  ORDERED  SO  THAT: 

IV=0  IS  MEAN 

IV=NEIGN^1  IS  MOST  VARIANCE  EIGENVECT. 

IV=NEIGN  '•  2ND  MOST  ** 

IV=NEIGN-1  "  3»D  ••  "  ETC  ETC 

IFpBUC3  PRINT*.  'EV  FILE#*.IVREAD 
READ(IVR£AD.ll)  IV 
IF(IV.EQ.O)  THEN 

DO  8  J=O.NWINDS 

R£AD(IVREAD.12)  UM(J}.VM(J) 


C  CONVERTING  CM/SEC  TO  M/SEC.  ENDLICH'S  WIND  MODEL 
C  CODE  MOOIFICaItIONS  max  be  required  for  use  WITH 


OUTPUT  IN  CM/SEC- - 


UM(J)=OM(J)/100. 

VMi  J)=AW(J)/100. 

IFiDBUGO  PRINT*.  ’MEANU.V*. 
Om(J).VM(J) 

ORITINUE 

IV=NEIGN-IV+2 
DO  9  J=0.NWI1®S 

IF(IV.LT.O)  STOP  'IV  <  0* 
READ(IVREAD,12)  UE (I V. J) . VE (I V. J) 


CONVERTING  CM/SEC  TO  M/SEC.  (SEE  ABOVE)  . 


UE  (IV.  J)  M;E  (IV.  J)  /lOO . 

VE  (IV,  J)  =VE  (IV.  J)  /lOO  . 
IF(DBUG)  PRINT*.  'EV  #',IV 
UE(IV.J)  ,VE(IV.J) 


END  IF 

CWTINUE 
FORMAT  (1 10) 
F(»MAT(2F10.2) 

RETURN 


CONTINUE 


:(IV,J),VE(IV.J) 


I'-v-y- 


S3; 


non  noon  oooo  ooo 


SUBROUTINE  FILEIO  (IREAD.  DEPTH) 

CHECaCIMS  FOR  APPRCX^IATE  FILE  IDENTIFIER  FOR  READING 
APPROPRIATE  PRECALCULATED  WIND  FIELD  SOLUTIONS. 
INTEGER  DNI 


PARAMETER  NFILES^^THE  «  OE  SOLUTION  FILES  STORED  IN  LU 
«'S  21,22 _ (20-^NFILES) 


PARAMETER  (NFILES=2) 

IR£AD=0 

TMIN^IOOOOO. 


FIND  FILE  WITH  AVTHK  CLOSEST  TO  MIXING  DEPTH;  FILES  EROM  ENDLICH  MCX>ELS  ARE 
IN  CM— CODE  MODIFICATIONS  MAY  BE  REQUIRED  FOR  USE  WITH  OTHER  MODELS. 


DO  50  IR=21,NFILES>20 
REWIND  IR 

READ(IR.9091)  JSITE,IV,CNI, AVTHK, SLFAC 
REWIND  IR 

NOTE  CONVERSION  TO  METERS. 

TEMP=ABS  (AVIHK/IOO .  -DEPTH) 
IF(TEMP.LT.TMIN)  THEM 
TMIN=TEM» 

IREAD^IR 

END  IF 

50  COITINUE 

IF(IREAD.LE.20)  STC»>  1000 
9091  F0RMAT(3I5,F10.0,F5.1) 

RETURN 

END 


oono  non 


SUBROUTINE  (XTWND  (IX.  lY.  IZ) 

C 

C  CALCULATES  WIND  IN  CELL  IX.  lY.  IZ  FROM  PRECALCULATED  EKXNVCIR 
C  SOL'NS  (0  TO  NEUNCT)  USING  LOG-LINEAR  INTERPOLATION  JCINISP(IZ) 
C  PROVIDES  APPROPRIATO  LOG  INTERPOLATIOf  FACTORS)  BETH^ 

C  VALUES  AT  TOP  &  BOTTOM.  «  INNER  PRODUCTS  (DOIP)  LINEARLY 
C  INIERPOLAIED  IN  TIME. 

C 

LOGICAL  DBUG.LOUIFL 

PARAMETER  (INDX=9. INDY=9. INDZ=5. NEIGN=9) 

DIMENSICXf  CINTBP(0:INDZ) 

COfMCXI  /WINDOB/  NOPUFF.NFUNCr.DEPTH.NWINDS.DOTP(0:NEIGN)  . 

$  D0TX(0:1.0:NEIGN) 

COFMCRI  /WNDFLD/  WNDUW(0:INDX.0:INDY.0:INDZ,0:2)  .GSPACE. 

$.  PRECAL  (0 :  INDX.  0:  INDY.  0 : 1. 0 : 2. 0  :NEICM) . 

$  RKS(0:INDX.O:INDY.2).XGRICN.YORICN.ZORICN 

COMON  /LOCES/  LOUTFL.DBUG 

DATA  CINIRP  /O. 24. 0.51.0.68.0.80. 0.95. 0.97/ 

FINIRP=CINIRP  (IZ) 

SETTING  UNCALCULATED  COMPONENTS  TO  0 

DO  50  K=0.2 

WNDUVW (I X. I Y . I Z . K) =0 . 0 
50  CCXTriNUE 

SUMMING  MEAN  SOL'N  &  QXnRIBUTKXlS  FROM  EV  SOL'NS.  THEN 
INTERPOLATING  TO  LEVEL  IZ. 


DO  100  K=0.NFUNCT 


C  TAKES  MEAN  SOL'N  (K=0)  AND  ADDS  PRODUCTS  OF  INNER  PRCXXXTTS  (DOTP.DOTP (0)  =1) 

C  AND  SOL'NS  FOR  VARIOUS  EICXNVECTORS  TO  GET  WIND  AT  TOP  &  BOTTOM  OF  LKTER. 

C  NOTE.  VALUES  ARE  ALSO  CONVERTED  FROM  CM/SEC  TO  M/IO-MIN. --CC»E  MODIFICATIONS 
C  MAY  BE  REQUIRED  IF  ENDLICH'S  MODEL  IS  NOT  USED. 


UL=PRECAL 

UU=PRECAL 

VL=PRECAL 

VU=PRECAL 

WL=FRECAL 

WU=FRECAL 


IX.IY.0.0.1 
IX,  lY.  1.0.1 
IX.  lY.  0.1.1 
IX.IY.1.1.1 
IX.  lY.  0.2.1 
IX.  lY.  1.2.1 


WNDUVW (IX,  lY.  IZ,  0) ! 


i*(ul+(uu-ul; 

»(ix,iY,iz.o; 


100 

9093 


1*6. 

1*6. 

1*6. 

1*6, 

1*6. 

»*6. 

Dolpfig 

+wndOw 

WNDUVW  (IX.  lY.  IZ.  1)  ’=OCm?  (K)  *'  (VL+  (VU-VL] 
+Wftt)UW(IX,  lY,  IZ,  1 
WNDUVW(IX.  lY.  IZ,  2)  =D0TP  (K)  •  (WL+  (WU-WL 
+WND0vW(IX.IY.IZ,2 
IF(DBUG.AND,K.EQ.3)  PRINT  9093. IX, lY, 
(WNDUVW (IX. I Y. 0 , LL) . LL=0 .  2) 

CONTINUE 

FORMAT  (IX. 'U.V&W  FROM  CELL  (CTTWND)  ' ,  314,  3F10 . 2) 

RETURN 

END 


•FINTRP) 

•FINIRP) 

•FINTRP) 

Z, 


oonnnono  • g  nnnnnnn 


SUEROUriNE 


IHIS  ROUTIME  USES  THE  NCAR  GRAPHICS  PKG  ROVTINE  EZSREC  TO 
PLOT  A  3-0  PRESENTATION  0£  THE  CONCENISATION  FIELD.— CODE 
MODIFICATIONS  MAT  BE  R^IRED  IF  OTHER  GRAPHING  PACKAGES  ARE  USED 


PARAMETER  (NRCPTX=20.NRCPTT=20.MXNPF=199) 

COIMON  /PFFCON/  PUFINr(0:MXNPF.O:4)  .PFFPAR(0:MXNPF.0:2)  .RSPACM. 
9  CONCEM(0:NRCPTX.0:NRCPTY.0:5).G5ICT(6), 

$  ALPHAZ(6).ALPHAT(6),FEXP(0:90).RCPTRX(0:NRCPTX) 

$  RCPTRY  (0  iNRCPTiO  .  XRCPO.  YRCPO 

LOGICAL  DBUG 

DIMENSICm  2(21.21)  .VfCXtK  (1300) 

DATA  ANGH.  ANGV 
/  60..  210./ 

MX^CPTX+1 
MY=41RCPTY+1 
IF  (MX*MY.GT.625)  STOP 

•TOO  MANY  RECEPTCRS  FOR  GRAPHING' 

DO  92  J=1.MX 
DO  90  K=1.MY 

2  ( J .  K)  =C(»ICEN  ( J  - 1 .  K- 1 . 1 ) 

CCWTINUE 


IF  (DBUG)  PRINT  60 
FORMAT  (1X.11E10.2, 
CONTINUE 

IF  (DBUG)  GO  TO  95 


PRINT  6000,  (Z(L.J),L=1.21) 
:.  IIEIO .  2/5X.  lOElO .  2/) 


USING  NCAR  GRAPHING  ROUTINE--  CONCENTRATION  PATTERN  IN  3-D 
VIEWED  FROM  ANGH  DEG.  SOOTH  OF  X  AXIS  &  ANGV  DEG.  ABOVE  HaRIZ(»«*AL. 

CALL  E2SRFC  (Z.MX.MY. ANGH.ANGV.WCRK) 


USING  NCAR  CONTOUR  ROUTINE  FC»  REGULARLY  SPACED.  RECTANGULAR  MX-BY-MY 
ARRAY  OF  VALUES. 

CALL  EZanR(Z.MX.MY) 


nonnnno  w  w  ono 


SUBRCXJTINE  GRIDXY(DBUG) 

CALCULATES  RECEPTOR  CO(»DINATES  WITH  GRID  CEWTERED  ON  SOURCE 
LOGICAL  DRUG 

PARAMETER  (MRCPTX=20,NRCPTy=20,MXNPF=199) 

COMMON  /PFFCa*/  PUFIWr(0:MXHPF.0:4),PFFP^(0:MXKPE.0:2)  .RSPACM, 

$  CONCEN?0:NRCPTX.O;NRCPTT,0:5),GSIG2(6), 

$  ALPHAZ  (6)  . ALPHAY (6)  .  FEXP  (0 ;  90)  , RCPTRX  (0  -.NRCPTX)  . 

$  RCPTRY  (0  -.NRCFir)  ,  XRCPO.  YRCPO 

COMMCXI  /SOURCE/  XSOURC.YSOURC.ZSOURC.QSOURC 
XRCPO=XSOORC- ( (NRCPTX/2 . 0) *RSPACM) 

YRCPO=YSOORC-  (  (NRCPTY/2 . 0)  *RSPACM) 

IF  (DRUG)  PRINT  *,  '  RECPTR  CRIG— XRCPO, YRCPO 
DO  3140  JJ=0  .NRCPTX 

RCPTRX  (JJ) =XRCPO+RSPACM* JJ 

IF  (DRUG)  PRINT  *.  '  RCPTR  X  COCRD-- *  ,JJ, RCPTRX  (JJ) 

140  CONTINUE 

DO  3150  JJ=0  .NRCPTY 

RCPTRY  (JJ)  =YRCPO+RSPACM*  JJ 

IF  (DRUG)  PRINT  *.  '  RCPTR  Y  COC»D-- * , JJ.RCPTRY(JJ) 

150  OSJTINUE 
RETURN 
END 

******************************************************************************* 

SURROUTINE  INDXY(XX, YY.LX.LY.LOUTEL) 

FINDS  THE  GRID  SQUARE  INDICES  LX  &  LY  F(»  THE  COORDINATES  XX  &  YY. 

SETS  LOUTFL  TO  TRUE  IF  OUT  OF  HOUNDS. 

PARAMETER  (INDX=9, INDY=9. INDZ=5, NEIGN=9) 

LOGICAL  LOUTTX 

COfrMON  /WNDFLD/  WNDUVW (0 ; INDX, 0 : INDY, 0 ; INDZ, 0:2), GSPACE, 

$  PRECAL (0 : INDX, 0: INDY, 0 : 1, 0 : 2, 0 :NEIGN) , 

$  RHS (0 : INDX, 0 : INDY, 2) . XORIGN, YCRIGN, ZORIGN 

LOUTFL=.TRUE. 

LX= (XX-XORIGN) /GSPACE 

IF  (LX.LT.O  .ok.  LX. GT. INDX)  GO  TO  2500 
LY= (YY- YORIGN) /GSPACE 

IF  (LY.LT.O  .C».  LY.CT.INDY)  GO  TO  2500 
LOUTFL=. FALSE. 

2500  RETURN 
END 


non  onn  oon  non  non  oooon 


SUBROUTINE  INELU  (GSIGT.NHOUR.  ISTAB} 

THIS  SUBROUTINE  DETERMINES  WHICH  RECEPTCXtS  ARE  CLOSE  ENOUGH  TO 
THIS  PUFF  TO  RECEIVE  A  SIGNIFICANT  COnRIBUTICHf  TO  THE  COICENTRATKSf. 
AND  THEN  ACCUMULATES  THE  CONTRIBUTIONS  AT  THE  AFFECTED  RECEPTORS. 

PARAMETER  (MXNPF=199,NRCPTX=20^NRCPTY=20.NEICN=9) 

PARAMETER  <INDX=9. INDY=9. IND2=5) 

LOGICAL  DBUG.LOUTFL 

COM«XI  /WNDFLD/  WNDUVW  (0:INDX.0:  INDY,  0:INDZ.  0:2)  .GSPACE, 

$  PRECAL  (0 : INDX,  0 :  INDY,  0 : 1, 0 : 2, 0  :NEIG>n  , 

$  BKS(0:INDX,0:INDY,2),X(»IGN,Y0RIGN,ZCRIGN 

cattKH  /wiNDOB/  nopOff,nfunct,depth,mwinds,doip(o:mei(^, 

$  D0rTX(0:l,0:NEICN) 

C0M40N  /SOURCE/  XSOURC,  YSOURC,  ZSOURC,  QSOURC 

COTMON  /PFFCON/  PUFINr(0:MXNPF,0:4)  ,PFFPAR(0:MXNPF,0:2)  ,RSPACM, 

$  CONCEN(0:NRCPrX,0:NRCPTY,0:5)  ,GSIGZ(6)  , 

$  AIi>HAZ(6)  ,ALPHAY(6),FEXP(0:90)  ,RCPT^(0:NRCPTX)  , 

$  RCPIRY?0:NRCP1Y),XRCPO,YRCPO 

C0^M0N  /LOGES/  LOUTFL,DBUG 
NPMT=-1 

DO  1700  I=0,NC«»UFF 

GET  HT.  ABOVE  SFC  TO  DETERMINE  PROPER  MODEL  TYPE. 

CALL  INDXY(PUFINT(I,l),PUFINT(l,2),LX,Ly,LOUTFL) 

IF  (LWIFLl  GO  TO  1700 
ZZ=^Iin‘(I,  3)-RHS(ia,LY,l) 

IF(DBUG.AND.  MOD  (1 , 15)  .  EQ .  0)  THEN 

PRINT*, '(IN  SUBROUTINE  INFLU) -#,TYPH>L,HEREMX,X,Y,Z* 

PRINT  *,I,T»>MJL,HEREMX,  (PUFlNT(I,jk),JK=l,2),ZZ 
END  IF 

GET  LOCAL  DEPTH  OE  LAYER 

HEREMX=4fflS^.  LY,  2) -RHS  (LX,  LY,  1) 

TYPMILfHER^*  (HEREMX-Z2) 

IF  (TYPfCL.LT.  0)  GO  TO  1700 

CHECK  FOR  ABOVE  MIX  DEPTH 

SIGZ= (ALPHAZ (ISTAB) * (PFFPAR (1 ,  1) *  *GSIGZ (ISTAB) ) ) 

BICTOP=SQRT  (lYML/0.26) 

IF  (SICT .  GT .  BIGTCa>)  SICT=BIGTOP+l 
IF  {PUFINT(I,  3)  .GT.3.0*SICT)  GO  TO  1700 
SYX3=(AIJ>HAY(ICTAB) ‘PFFPAR (I,  2)  •  *GSICY)  * 3 . 0 

SET  SYX3=3SIGMA  &  FIND  BOUNDS  OF  PUFF  INFLUENCE 

LOWCOL=NINT  (  ffUFINT  (1 , 1)  -XRCPO-SYX3)  /RSPACM)  -1 
IF  (LOWCOL.GT.NRCPTX)  GO  TO  1700 
MAXCOL=NINr(  ffUFINTfl,  1)  -XRCPCKSYX3) /RSPACM)  +1 
IF  (^COL.LT.  01  GO  TO  1700 
L0WR0Wi4«MT(CPUFINT(I,2)-YRCP0-SYX3)/RSPACM)  -1 
IF  (LOWROW.GT.NRCPTY)  GO  TO  1700 
MAXROW=MINT  (  (PUFINT  (1 , 2)  -YRCP0+SYX3)  /RSPACM)  +1 
IF  (MAXROW.lt.  0)  go  to  1700 
IE  (MAXCOL.GT.NRCPTX)  MAXC0L=NRCPTX 
IF  (LOWCOL.LT.  0)  LOWCOL=0 
IF  (MAXROW.GT.NRCPTY)  MAXR0W=NRCPTY 
IF  (LOWROW.lt.  0)  LOWROW=0 

RESET  SICY  TO  1/3  THE  RANGE  OF  INFLUENCE 

SIGY=SYX3/3.0 


noon  ooo  noo  t;  oon 


SELECT  MMJEL  TYPE- -BOX  MCCEL  (ITYP=1)  .  NO  REFLECTION  (1TH>=2)  , 
REFLECTICMI  (ITYP=3)  . 


ITYP=2 

IF  pBUG  .AND.  M0D(I.15)  .EQ.O)  PRINT*.'  LCL  DPTH.TYPMDL.SIGZ’ , 

$  HEREMX.TYPMDL.SIGZ 

IF  (DEPIH.LE.  0)  GO  TO  1610 
IF^1.15*SIGZ*SIG2)  .LE.TYPMDL)  GOTO  1610 

IF  ((0.26*SIGZ*SIG2) .LE.TYPM5L)  GOTO  1610 
ITYP=1 

610  IF(DBUG  .AND.  MOD  (I,  IS)  .EQ.O)  THEN 

PRINT*.  ’  #.LOWC,MAXC.LOWR.MAXR  '. 

$  I.LOWCOL.MAXCOL.LOWROW.MAXROW 

PRINT*.  •  SIG2.SIGY  '.SIGZ.SIGY 

END  IF 

NOW  CALCULATE  CONCENTRATION  F(Xl  AFFECTED  REGION. 

DO  1690  II=LOWCOL.MAXCOL 
DO  1690  JJ=LOWROW.MAXROW 
NPNT>=NPNT+1 

XX=PUFINT(I.  l)-RCPTRX(II) 

YY=PUFINT(I.  2)-RCPTRY(JJ) 

GET  HT.  OF  PUFF  ABOVE  RECEPTOR  TO  CALCULATE  OXICEN. 

CALL  INDXY  (RCPTRX 1 1 1)  .  RCPTRY  ( J  J)  .  LX.  LY.  LOOTFL) 

Z2=PUFINT  (1 .  3)  -BHS  (LX.LY.  1) 

INDEXP=  (5.0*  (XX*XX+YY*YY)  /  (SIGY*SIGY)  ) 

IF  (DBUG  .AM5.  MCfflCNPNT.lS)  .EQ.  0)  PRim  *. 

$  '  ROW.  C0L.X.Y.2.  RCPXRX,  RCPTRY.  SIGY,  INDEXP'. 

$  1 1 .  JJ.  XX.  YY.  ZZ.RCPTRX  (II)  .  RCPTRY  (JJ)  .  SIGY,  INDEXP 

IF  (INDEXP. GT. 90)  GO  TO  1690 

GET  FACTOR  (Q^TF)  THAT  INCLUDES  PUFF  MATERIAL  6  LATERAL  SPREADING 
EFFECTS  6  CALL  CALCON  TO  INCREMENT  COJCENIRATIONS  AT  AFFECTED  RECEPTOR 

QMULTF=  (2*PFFPAR (1 .  0)  *FEXP  (INDEXP)  ) 

$  /(15.75*SIGY*siCY) 

CALL  caLcon(ityp.istab,zz,typmdl,qi^tf, 

$  II.JJ.I.SIGZ.NHOUR.HEREMX) 

1690  CONTINUE 
1700  CONTINUE 
RETURN 
END 
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SUBROUTINE  INWIND ( I. IHOUR) 

C 

C  THIS  SUB  ACXEPTS  WIND.  CALCS  COMP<»IENTS.  FC»MS  INNER  PR<X>UCTS 
C  WITH  EIGENVECTORS  (OR  OTHER  C»THOG .  FNCINS) 

C 

LOGICAL  DBUG.LOUIEL 
PARAMETER  (NEIGN=9.NSTA=8) 

COMMON  /WINDOB/  NOPUFF. NFUNCT,DEPTH.NWINDS.DOTP(0:NEIGN)  . 

$  D0rrX(0:1.0:NEIGN) 

COMMON  /WNDEIG/  UM(0;NSTA+1)  .VM(0:NSTA+1)  . 

$  UE(0:NEIGN.  0:NOTA+1)  ,VE(0:NEIGN.  0:NSTA+1) 

COMMON  /LOGES/  LOUTFL.DBUG 
DIMENSION  U(0:NSTA+1)  .V(0:NSTA+1) 

C 

C  CORRECTING  FOR  1ST  HOUR  INPUTS 
C 


IF  (I.EQ.O)  1H0UR=IH0UR-1 
C 

C  INPUT  WINDS  4  GET  COMPS 

C 

IF  (I .LE.  0)  GO  TO  2200 
DO  2190  J=1.NEICN 

DOTX(0. J)=D0TX(1  ,J) 

2190  CONTINUE 

2200  DO  2250  J=0.NWINDS 

IF(J.EQ.  NWINDS)  THEN 

PRINT  *.  'GRADIENT  WIND  SPD.  (M/S)  &  DIR. 
$  FOR  HR. '.IHOUR. •?• 

ELSE 

PRINT  *.  'WIND  SPD (M/S)  &  DIR.  AT  SITE  '. 
$  J+1  . '  FOR  HR  ' . IHOUR 

END  IF 

ACCEPT  *.  WNDSPD.WD 
PRINT* . '  ' . WNDSPD. WD 
C 

C  CCaWERTING  TO  DEVIATIONS  FROM  MEAN  COMPONENTS 
C 

U (J) =WNDSPD*COS (WINDIR (WD) ) -UM (J) 

V (J) =WNDSPD*SIN (WINDIR (WD) ) -VM (J) 

IF(DBUG)  PRINT*.'  U.V  AT  SITE  #  \J.U(J).V(J) 
2250  CONTINUE 
C 

C  ZERO  INNER  PRC»S  &  GET  DOTX'S- -INDEX  I=HR  &  K=FUNCTION 
C 

DO  2275  K=1.NFUNCT 
DOTX(I.K)=0.0 
2275  CXWTINUE 

DO  2300  K=1.NFUNCT 
DO  2290  J=0. NWINDS 

DOTX  (I .  K)  =U  ( J)  *UE  (K.  J)  +V  (J)  *VE  (K,  J)  +DOTX  (I .  K) 
2290  CCRfTINUE 

IF(PBUG)  PRINT*.  'INNR  PRD  #'.K.D0TX(I.K)  .1 
2300  CONTII^ 

C 

C  RESET  HOUR  AFTER  1ST  HOUR  INPUTS 
C 

IF  (NOPUFF. EQ.O) THEN 
DO  2305  K=l.NFUNCr 

DOTX ( 1 . K) =DOTX (0 . K) 

2305  CONTINUE 

IHOUR=NEXTHR  (IHOUR+1) 

NOPUFF=NOPUFF+l 
END  IF 
RETURN 
END 


nnri  non  nnooo 


SUBROUTINE  M^T  IN  (QUIT.  ISXAB.  IHOUR.ALPKMf.SEPMAX) 

THIS  ROUTINE  READS  IN  BASIC  METEOROLOGICAL  INFORMATION  FOR  THE 
NEXT  HOUR  &  SETS  QUIT  FLAG  TO  STOP  COMPUTATIONS  IF  A  NEGATIVE 
MIXING  DEPTH  IS  INPUT. 

LOGICAL  WIT 
PARAMETER  (NEIGN=9) 

DIMENSION  AIJ>HAY(6) 

COt'WW  /WINDOB/  NOPUFF.  NFUNCT. DEPTH. NWINDS,  DOTP  (0  ;NEIGN)  . 

$  D0T){(0:1.0:NEIGN) 

C0M40N  /SOURCE/  XSOURC.YSOURC.ZSOURC.QSOURC 
QUIT=. FALSE. 

PRINT  *.  'MIX  HT.  (M)  &  STABIL.?— NEG.  MIX  HT  TO  STOP* 

ACCEPT  *, DEPTH, ISTAB 
PRINT*,'  '.  DEPTH, ISTAB 
IF  (DEPTH. LE.  0)  THEN 
QUIT=.TRUE. 

EXjS£ 

SEPMAX=ALPHAY (ISTAB) *0.45 
PRINT  *,  'SOURCE  SIRNCrTH  (G/S)?' 

ACCEPT  *.QSOURC 
PRINT* ,  '  QSOURC 
IHOUR=NEXTHR(IHOUR+l) 

FIRST  HOUR  WINDS  ARE  INPUT  &  INNER  PRODUCTS  CALCULATED 

IF  (NOPUFF. LE.  0)  THEN 
1=0 

CALL  INWIND (I . IHOUR) 

END  IF 

INPUT  NEXT  HOUR'S  WIND  &  CALC.  INNR  PROD. 


1=1 

CALL  INWIND  (I,  IHOUR) 
END  IF 
RETURN 
END 
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SUEROOTINE  MiG  PRC  (lASIPF.SEFMAX) 

naS  SUBROUTINE  MERGES  CLOSE -TOGETHER  PUFFS  A  ELIMINATES  EXTRAS. 
OUT-OF-BOUNDS  PUFFS  (IldfTIFIED  BY  0  CONTENT)  ARE  ALSO  ELIMINATED. 

LOGICAL  LOUTFL 

PMUKMETER  (NEIGM=9,MXNPF«199,NRCPTXs20.NRCPTY=20) 

PARAMETER  (INDZ=S. INDX=9. INDY=9) 

CONION  /NNDFLD/  NNDUVW(0:INOX.O:IN0Y,0:INDZ,0:2)  .CSPACE. 

9  FRECAL(0:INDX,0:INDy,0:l,0:2,0:NEIGN), 

»  RKS  (0 :  INDX.  0 :  INDY,  2)  .  XCRIGN.  YORICM,  ZORIGN 

-  -  — - NWINDS.DOIP(0:NEIGN)  . 


$  RKS  (0 :  INDX.  0 :  INDY.  2J  .  XCRIGN.  YORICM.  ZORIGN 

COMCN  /WINDOB/  N0PUFF.NFUNCT.DEPTK.NWINDS.DOrP(0:NEIGN)  . 

$  D0TX(0:1.0:NEIGN) 

COMION  /PFFCON/  PUFINT(0:MXNPF.O:4)  .PFFPAR(0:MXNPF.0:2)  .RSPACM. 
$  CONCENiO:NRCPTX.O:NRCFTY.O:S),GSIC3(6). 

$  ALPHAZi6).ALPHAY(6).FEXP(0:90).RCFTRX(0:NRCPTX), 

$  RCPTRY(0:NRCPTY).XRCPO.YRCPO 

1=0 

1015  11=1+1 

IF  (I.GE.MXNPF)  STOP  *  TOO  MANY  TIMES  IN  PURGE  LOOP* 

C 

C  SKIP  EMPTY  PUFFS— OlECK  OTHERS  A  MERGE  CLOSE  PAIRS 
C 

IF(PFFPAR(I.O) .EQ.  0)  GO  TO  1120 
PSftN=ABS  (PFFPAR(II.  2)-PFFPAR(I.  2)) 

IF  (PSEPN.CE.SEP^*PFFPAR(II.  2))  GO  TO  1120 
DO  1060  L=0  .4 

PUFINT(II.L)=0.5* (PUFlNr(II.L)+PUFINT(I.L)) 

1060  CONTINUE 
C 

C  MAKE  SURE  MERGED  PUFF  ISN'T  BELOW  SFC. 

C 

CALL  INDXY  (PUFINT  (1 1 . 1)  .  PUFINT  (1 1 . 2)  .  LX.  LY.  LOUTFL) 

IF  (LOUTFL)  THEN 
Pm>AR(II.0)=0.0 
GO  TO  1120 
END  IF 

IF  (P0FIMT(II.3)  .LT.RHS(LX.LY.l))  PUFINT(II.  3)=«HS(U(.LY.  1) 
IF  (PUFINr(II.3) .GT.RHS(LX.LY.2))  PUFINT(II,  3) =RHS (LX. LY. 2) 
PFFPAR(II.  0)=PFFPAR(II.  0)+PFFPAR(I.  0) 

PFFPAR(II.  1)  =  (PFFPAR(II,  1)+PFFPAR(I.  1))*0.5 
PFFPARhi.  2)  =  (PFFPAR(II,  2)+PFFPAR(I.  2))  *0.5 
PFFPARfl.  0)=0 

IF  (I.CT. (LASTPF-3))  GOTO  1130 
1=1+2 

GO  TO  1015 

1120  IF  (I.GE. (LASTPF-2))  GOTO  1130 

I=II 

GO  TO  1015 
1130  IDNEW=-1 

DO  1250  I=O.LASTPF 

IF  (PFFPAR(I.  0) .LE.  0)  GOTO  1250 
IF  (PUFINT(I.  3) .Cr. DEPTH)  PUFINT(I.  3)=DEPTH 


MAXIMUM  MIXING  DEPTH  EFFECT 


IF  (PUFINT (I.  3) 
II»I^IIX4EW+1 
DO  1240  L=0.  4 


LT.  0)  PUFINT(I.  3)=0 


CCNTINUE 

CONTINUE 

NQPUFF=IDNEW 

RETURN 

END 


V-'.V 


FUNcrrim  nexihr  (ihour) 


CHECKS  TO  MAKE  SURE  IHOUR  IS  BETWEEN  0  &  23. 


NEXTHR=IHOUR 
IF  (IHOUR.lt. 0) 
IF  hH0UR.Gr.23) 


NEX1HR-IM0UR-*^24 

NEXIHR=IH0UR-24 


SUBROUTINE  OUINOW(NHOUR.  ISTAB) 

PRINTS  SOME  BASIC  INFO  &  N(»I-ZERO  aRK:ENIRATIONS 
LOGICAL  DBUG.LOUTFL 

PARAMETER  (NRCPTX=20.NRCPTY=20.MXNPF=199.NEIGN=9) 

COtMOI  /WINDOB/  N(X>UFF.  NFUNCT.  DEPTH,  NWINDS.  DOTP  (0  :NEIGN)  , 

$  D0TX(0:1,0:NEIGN) 

C0M10N  /PFFCON/  PUFINT(0:MXNPF,  0:4)  ,PFFPAR(0  :MXNPF,  0:2)  .RSPACM, 
0  C0NCEN(0:NRCPTX,0:NRCPTT,0:5)  .GSIGZ{6)  , 

$  ALPHA2(6),ALPHAY(6),FEXP(0:90).RCPTRX(0:NRCPTX), 

$  RCPIRYJO  :NRCP^  , XkCPO.  YRCPO 

COfWCM*  /LOGES/  LOUIFL.DBUG 

Cai<MC»<  /SOURCE/  XS0URC.YS0URC.ZS0URC.Q50URC 
IF(DBUG)  PRINT*.  'STABILITY=' .  ISTAB 
IFpBUCi  PRINT*.  'MIX  DEPTH=*.  DEPTH 
IF(DBUG  PRINT*.  'SRC  HEIGHr=*.  ZSOURC 
IF(DBUG  PRINT*.  'SRC  STRNGIH=’.  QSOURC 


PRINT*. 

PRINT*. 


C 

C . 

C 

C6002 


OUTPUT  NON-ZERO  C(M4CENTRATI<»JS 

DO  3350  IHOUR=O.NHOUR-1 

PRINT  *, 'HOUR  NO.  '.IHOUR 
DO  3350  11=0  .NRCPTX 
DO  3350  JJ=0  .NRCPTY 

IF  (CONCEN (II , JJ. IHOUR) . EQ. 0 . 0) 
PRIlh'  *.  RCPTW(II)  .RCPTRY(JJ) . 


00  TO  3350 
CONCEN  (I  I.  JJ.  IHOUR) 


. TO  WRITE  OUTPUTS  TO  LOGICAL  UNIT  15 . 

WRITE  (15.6002)  IHOUR.RCPTRX(II)  .RCPTRY(JJ)  .CC»«:EN(II.JJ.  IHOUR) 
FORMAT  (I5.3E15.3) 


3350  CONTINUE 

IF  (.NOT.  DBUG)  GO  TO  3357 
PRINT  6000 
DO  3353  1=0. NOPUFF 


3357  CONTINUE 
RETURN 


PRINT  6001 .  I .  ^PUF^  (I .  J)  .  J=0 , 4)  .  PFFPAR  (I .  O)  . 
CONTINUE 

FORMAT  ('0  PUFF  ID' . 3X. 'MAXMIX' .7X. 'X' .9X. 'Y' .8X. 'Z 
8X.  'ACT'.SX.  'AMOUNT'. 5X.  'SICZ'.6X.  'SIGY') 
FORMAT  (5X.I3.1X.8F10.0) 


C  CALCULATES  HEICHT  ABOVE  LOWEST  FT.  XRKS=  ACTUAL  HTS.  BBS^^tELATIVE  HTS. 

C  FILES  FROM  ENDLICH  MODELS  ARE  IN  CM— CODE  MODIFICATIONS  MAY  BE  REQUIRED  FOR 
C  USE  WITH  OTHER  MODELS. 


PARAMETER  (INDX=9. INDY=9) 

DIMENSION  XRKS  (0 :  INDX.  0 :  INDY,  2)  .RK5  (0 :  INDX,  0 :  INDY,  2) 
ZMIN=1.E9 
C 

C  FIND  LOWEST  HT. 

C 

DO  50  IX=0,INDX 
DO  50  IY=0,INDY 

ZMIN=AMIN1  (ZMIN,  XBHS  (IX,  lY,  1)  ) 

50  CaiTINUE 
C 

C  GET  RELATIVE  HTS  &  CONVERT  TO  METERS  (FROM  CM) 

C 

DO  100  IX-0,INDX 
DO  100  IY=0,INDY 


OXITINUE 

RETURN 

END 


/lOO.O 

/lOO.O 

STOP  'TOP  UNDER  SFC' 


C************* **•***<.*******«**•****•****•******** ********************* 

C 

SUBROUTINE  VIRTVL(ISTAB,SL) 

C 

C  CALCULATES  VIRTUAL  TRAVEL  DISTANCES 

C 

INTEGER  SL 

PARAMETER  (MXNPF=199 . GSYINV=1 .0/0.9, NEIGN=9 . NRCPTY=20 . NRCPTX=20) 
CQM10N  /WINDOB/  NOPUFF, NFUNCT.DEI^.NWINDS, DOTP  (0  tNEIG^D  , 

$  DOTX(0;1,0:NEIGN) 

COfWON  /PFFCON/  PUFINT(0:MXNPF,0:4)  ,PFFPAR(0;MXNPF,0:2)  ,RSPACM, 

$  CONCEN(0;NRCPTX,0;NRCPTY,0:5) ,GSIGZ(6) , 

9  ALPHAZ(6) .ALPHAY(6),FEXP(0:90).RCPTRX(0:NRCPTX) . 

0  RCPTRY (0 : NRCPTY) , XRCPO, YRCPO 

IF  (SL  .LT.  1)  GO  TO  2970 


C  GET  SIGMAS  FOR  PAST  STABILITY  CLASS  (SL) 

C 

SIGZ=ALPHAZ (SL) * (PFFPAR (LL,  1) *  *GSIGZ (SL) ) 
SIGY=ALPHAY(SL)*(PFFPAR(LL,  2) **0.9) 

C 

C  USE  SIGMAS  TO  CALCULATE  VIRT  TRVL  (M)  FC»  NEW  STAB.  CLASS  (ISTAB) 


PFFPAR  (LL,  1)  =  (SIGZ/ALPHAZ  (ISTAB))* 
PFFPAR  (LL,  2)  =  (SIGnf/ALPHAY(ISTAB))* 
2950  CONTINUE 
C 

C  SAVE  LAST  STABILITY  CLASS 
C 

SL=ISTAB 
2970  RETURN 


*GSZINV 

*GSYINV 


SUEROOTINE  WIND(XX.Yy.ZZ.Ul.U2,U3) 

C 

C  CHECKS  FCR  OUT  OF  BOUNDS  PUFF  «  FOR  PUFF  IN  CELL  WITH  PREVIOUSLY 
C  CALCULATED  WIND- -CALCULATES  WIND  IF  NEEDED. 

C 

LOGICAL  LOUIFL.DBUG, FIRST 
PARAMETER  (INDX=9,  INDY=9.  INDZsS.  NEIGM^R) 

COMfON  /WINDOB/  IIOPUFF.NFUNCT,DEFTH.NWI»TC.DOriP(0:NEIGM)  . 

$  D0TX(0:1.0:NEIGM) 

CG»M0N  /WNDFLD/  WNDUVW(0:IMDX.0:INDfY.0:INDZ.0:2)  .GSPACE. 

$  PRECAL(0:INDX.0:IIOY.0:1.0:2.0:NEIGN) . 

«  RK5(0:rNDX.O:INDY.2)  .XCRICN.YGRIGN.ZGRIGN 

GotMON  /ixxxs/  Louin.rauc 

C 

C  SET  OUT  <X  BOUNDS  FLAG  &  GET  KT  RELATIVE  TO  SFC. 

C 

CALL  INDXY(XX.YY.LX.LY.LOUIFL) 

IF  (LOUin)  GO  TO  2500 

L2=6 .0*  (ZZ-RHS (LX.  LY.  1)  )  /  (RHS (LX.  LY,  2)  -RHS  (LX. LY.  1)  ) 

IF  (LZ.GT.5)  LZ=5 
IF  (LZ.LT.O)  LZ=0 
FIRST=.  FALSE. 

C 

C  CHECK  FOR  PRIOR  CALCULATION 
C 

IF  (WNDUVW(LX.LY.LZ.2) .EQ.YORIGN)  THEN 
•  CALL  GETWND(LX.LY.LZ) 

FIRST=.TRUE. 

END. IF 
C 

C  WIND  UNITS  ARE  M/IO-MINUTES 
C 

U1=WNDUVW(LX.LY.LZ.  0) 

U2=WNDUVW(LX.LY.LZ.  1) 

.  U3=WNDUVW(LX.LY.LZ.  2) 

IF^BUG  .AND.  FIR^  PRINT  6000.  LX.LY.LZ.U1.U2.U3 
6000  FORMAT ( IX. 'U.V&W  EROM  CELL  (WIND) ’ . 314, 3F10.2) 

2500  RETURN 


ajiw 


ooooo  ooooooonoooonoonnonon 


SUBROOTINE  WINDDO 

PARAMETER  (INDX=9.  INDY=9.  IND2:=5.NEIGN=9) 

IDENTIFIES  FILE  (IREADI  ACCORDING  TO  MIXING  DEPIH  (DEPTH) 

&  READS  APPROPRIATE  SET  OF  PRECALCULATED  WIND  FIELD  SOL 'NS 

IX.IY.IZ  =LOCATION  GIVEN 
HTPUFF  =HEIGHr  OF  PUFF  IN  METERS 
DEPTH  =44IXING  DEPTH  IN  METERS 
NFUNCT  =NO.  OF  EKXHVECTORS  TO  BE  USED. 

NYUtS  =  NO.  OF  LAYERS.  STARTING  WITH  THE  GROUND=l 

NSTA  =  NO.  OF  STATIONS  HAVING  WIND  DATA 

NIYPE  =  NO.  OF  TYPES  OF  SOLUTICSJS  e.g.  DAY/NITE 

INDX,  INDY.  INDZ  =  DIMENSIONS  OF  GRID  SIZE  USED  IN  X.Y  AND  Z  DIRECTIONS 

NFILES  =  NUMBER  OF  FILES  TO  READ 

XRHS  ==  GEOMETRIC  HEIGHT  ABOVE  TERRAIN 

RBS  =  GEOMETRIC  HT  ABOVE  THE  LOWEST  PT  IN  THE  DOMAIN. 


INPtJIS  FROM  ENDLICH'S  MODELS  ARE  IN  CM/SEC  AND  NEED  TO 
BE  CONVERTED  TO  METERS/SEC -COIE  MODIFICATIONS  MAY  BE  REQUIRED  IF 
OTHER  MODELS  ARE  USED. 


DIMENSION  XRHS  (0:  INDX.  0:  INDY.  2) 

C0M40N  /WINDOB/  NOPUFF.NFUNCT.DEPTH.NWINDS.DOTP (0 :NEIGN)  . 

$  DOTX(0;1.0:NEIGNI 

C0^M0N  /WNDFLD/  WNDUVW(0:INDX.0:INDY.0:IMDZ.0:2)  .GSPACE. 

$  PRECAL(0:INDX.O:INDY.O:1,0:2.0:NEIGN). 

$  RK^O:INDX.O:INDY.2).XORICN.YORIGN.ZORICN 

COMMON  /LOCKS/  LOUT^.DBUG 
LOGICAL  DBUG.LOUTFL 
INTEGER  DNI 
DATA  LAST/0/ 

NFUNCTs  NO.  OF  EIGENVECJIDRS  TO  BE  USED 

(KTTING  ID  OF  FILE  THAT  CORRESPONDS  MOST  CLOSELY  TO  MIXING  DPTH 
AND  THEN  READING  SOL'NS  IF  DEPTH  CLASS  CHANGED  IN  PAST  HR. 


C 

C 

C 

C 

C 

c 


CALL  FILEID  (IREAD. DEPTH) 

IF  (LAST. EQ. IREAD)  GO  TO  200 
DO  100  K=0. NFUNCT 

READ  (IREAD.  9091)  JSITE.IV.DNI.AVTWC.iaFAC 
IV=K=0  FOR  MEAN 

IV=NEIGN+1  OR  K=1  FOR  MOST  VARIANCE 
IV=NEIGN  OR  K=2  FOR  2ND  "  " 

ETC  ETC 


$ 

$ 

$ 

$ 

$. 

9 


IF(DBUG)  PRINT*.  'PREC^L  ETC  FROM  WINDDO' 
IFpBUG)  PRINT*.'  JSITE.IV.DNI.AVTHK.SLFAC' ,K 
IFCDBUG)  PRINT  9091. JSITE.IV.DNI.AVTHK.SLFAC 
READ  (IREAD.  9092)  (((PRECAL(I.J.0.0.ig  . 

PRECAL(I.J.0.1,lrt  . 
PRECAL(I,J.0.2.lrt. 

XRHS (I . J . 1) ). J=0 . INDY) , 1 =0 . INDX) 
IF(DBUG)  PRINT  9093.  (((PRECAL(I.J.0.0,IC)  , 

PRECAL(I,  J.O,  l.K))  .J=0.  INDY)  .  1=0,  INDX) 
READ  (IREAD.  9092)  (  (  (PRECiAL(I.  J.  1. 0.JQ  . 

PRECAL(l.J.l.l.K). 
PRECAL(I.J.  1.2.10  . 


nnoo  non  onon  non 


$  XRHS(I,J.2)).J=0,INDy) .I=0,INDX) 

IF(DBUG)  PRINT  9093.  ( ( (t>RECAL(I.  J.  0.  0. K)  . 

$  PRECAL(I. J. 0. l.K)) . J=0. INDY) . 1=0, INDX) 

100  CCWTINUE 

IF  ]last.eq.o)  call  RELHTIRHS.XRHS) 

200  LAST=IREAD 

9091  F<»MAT(1X.I4,2I5.F10.0.F5.1) 

9092  FORMAT  (8F10 . 2) 

9093  FORMAT (IX. 10 (2F5.0.2X)) 

RETURN 

END 

************************************************************************ 

FUNCTIOI  WlNDIRfWD) 

PARAMETER  (DEG2R=0 . 0174533) 

CONVERTS  WIND  DIRECTION  IN  METEOROLOGICAL  CONVENTICW  TO  MATH 
ANGLE  NOTATICRI  IN  RADIANS 

WINDIR=  (270 . -WD) *DEG2R 
RETTSW 
END 


SUBRQOTINE  WNDBAR(WNDUVW.  YORIGN) 

PARAMETER  (INDX^.  INDY=9.  IND2=5.NEIGN=9) 
DIMENSION  WNDUVW (0 : INDX. 0: INDY. 0:INDZ. 0:2) 

W  COMPONENT  SET  TO  YCRIGN  IN  ORDER  TO  IDENTIFY  rFTJ.R 
F<»  WHICH  WIND  HAS  NOT  YET  BEEN  CALOJLATED, 


3050 


DO  3050  1=0. INDX 

DO  3050  J=0.INDY 

DO  3050  K=0.IND2 

WNDUVW (I, J.K. 2)=YORIGN 

CONTINUE 

RETURN 

END 
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EIGENVECTOR  INPUTS  FOR  SAMPLE  PROBLEM  1 
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Sample  Problem  Using  Spatially  Varying  Wind  Fields 


-  v'-'-’  V'- 
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1.  Sample  Problem  with  Spatially  Uniform  Winds 


•  ' 


This  example  uses  artifical  eigenvector  and  wind  field  solutions  that 
generate  winds  that  are  uniform  in  space,  but  can  change  with  time.  The 
following  eigenvector  file  is  read  from  logical  unit  11; 


The  first  group  of  numbers  causes  the  mean  u's  and  v's  at  the  3  locations  (two 
stations  and  an  upper  level  wind)  to  be  zero.  The  next  set  of  numbers  will 

(when  used  with  the  solution  sets  given  below)  cause  the  u  and  v  components 

from  the  first  station  to  be  used  throughout  the  three  dimensional  field.  The 
corresponding  solution  sets  are  shown  below.  The  first  file  contains  dummy 
solutions  for  a  1000  meter  deep  layer  (100000  cm);  it  will  be  read  from 

logical  unit  21.  The  second  file  is  for  a  2000  m  deep  layer  and  is  read  from 

unit  22. 


The  interactive  inputs  are  shown  after  the  two  solution  files.  The 
outputs  from  this  sample  run  follow.  Figure  1  shows  graphical  outputs 
obtaining  from  an  NCAR  routine. 


This  example  is  based  on  some  results  provided  by  Endlich.  The  input 
eigenvectors  were  obtained  from  data  collected  in  the  Goodenoe  Hills  region  of 
the  State  of  Washington.  The  first  set  of  solutions  is  for  an  average  mixing 
depth  of  about  600  ra.  The  results  were  obtained  from  runs  of  a  mass- 
conserving  model.  The  second  set  of  results  has  been  synthesized  from  the 
first  by  simply  increasing  the  mixing  depth.  The  input  files,  the  interactive 
inputs  and  the  outputs  for  this  example  are  given  on  the  following  pages. 
Figure  2  shows  the  graphical  output. 
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EIGENVECTOR  INPUTS  FOR  SAMPLE  PROBLEM  2 


FIRST  WIND  SOLUTION  FILE  (LU=21)  FOR  SAMPLE  PROBLEM  1 
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100.00 

0.00 

0.00 

100.00 

0.00 

0.00 

100.00 

0.00 

c.oo 

100.00 

0.00 

0.00 

100.00 

0.00 

0.00 

100.00 

0.00 

0.00 

100.00 

0.00 

0.00 

100.00 

0.00 

c.oo 

100.00 

0.00 

0.00 

100.00 

0.00 

0.00 

100.00 

0.00 

o.oc 

100.00 

0.00 

0.00 

100.00 

0.00 

o.oc 

100.00 

0.00 

o.oc 

100.00 

0.00 

0.00 

100.00 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

Q.OO 

200000. 

0.00 

200000. 

0.00 

200000. 

o.co 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

o.co 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

o.oc 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

200000. 

0.00 

0.0 

0.00 

0.0 

0.00 

0.0 

0.00 

0.0 

0.00 

0.0 

0.00 

0.0 

Q.OO 

0.0 

0.00 

0.0 

0.00 

0.0 

0.00 

0.0 

0.00 

0.0 

0.00 

0.0 

0.00 

0.0 

0.00 

0.0 

0.00 

0.0 

o.cc 

0.0 

0.00 

0.0 

0.00 

0.0 

c.oo 

0.0 

0.00 

0.0 

100.00 
100. CO 
100.00 
IOC. 00 
100.03 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
130.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 
100.00 


0.3D 

0.03 

0.00 

0.00 

o.co 

0.00 

0.00 

c.oo 

0.00 

0.00 

0.00 

0.03 

0.00 

0.00 

0.00 

0.00 

o.oc 

O.OD 

0.00 

0.00 

0.00 

o.oc 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

200000. 

200000. 

200000. 

20C000. 

200000. 

200000. 

200000. 

200000. 

200000. 

200000. 

200000. 

200000. 

200000. 

200000. 

200000. 

200000. 

200000. 

200000. 

200000. 

200000. 

200000. 

200000. 

200000, 

200000. 

200000. 

200000. 

200000. 

200000. 

2000C0. 

200000. 

200000. 


o.co  100.00  0.00 

0.00  100.00  0.00 

0.00  100.00  0.00 

0.00  100.00  0.00 

0.00  100.00  0.00 

0.00  100.00  0.00 

0.00  100.00  0.00 

0.00  100.00  0.00 

o.oc  100.00  0.00 

0.00  10C.O0  0.00 

o.oc  100.00  0.00 

0.00  100.00  0.00 

0.00  100.00  0.00 

0.00  100.00  0.00 

0.00  100.00  0.00 

0.00  100.00  0.00 

0.00  100.00  0.00 

0.00  100.00  0.00 

0.00  100.00  0.00 

0.00  100.00  0.00 

c.oo  100.00  0.00 

0.00  100.00  0.00 

o.oc  100.00  0.00 

0.00  100.00  o.oc 

c.oo  100.00  0.00 

0.00  100.00  0.00 

0.00  100.00  0.00 

0.00  100.00  0.00 

0.00  100.00  0.00 

0.00  100.00  0.00 

00.00  100.00  0.00 

00.00  100.00  0.00 

00.00  100.00  0.00 

00.00  100.00  0.00 

00.00  100.00  0.00 

00.00  100.00  0.00 

00.00  100.00  0.00 

00.00  100.00  0.00 

00.00  100.00  0.00 

00.00  100.00  0.00 

00.00  100.00  0.00 

00.00  100.00  0.00 

00.00  100.00  0.00 

00.00  100.00  0.00 

00.00  100.00  0.00 

00.00  100.00  0.00 

00.00  130.00  0.00 

00.00  100.00  0.00 

00.00  100.00  0.00 

00.00  100.00  0.00 

00.00  130.00  0.00 

00.00  100.00  0.00 

00.00  100.00  0.00 

00.00  130.00  0.00 

00.30  100.00  0.00 

00.00  100.00  0.00 

00.30  100.00  0.00 

00. Ou  100.00  0.00 

00.00  100.00  0.00 

00.00  100.00  0.00 

00.30  100.00  0.00 


0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

200000 

200000 

200000 

200000 

200000 

200000 

200000 

200000 

200000 

200000 

200000 

200000 

200000 

2C0000 

200000 

203000 

200000 

200000 

200000 

200000 

200000 

200000 

200000 

203000 

200000 

20000C 

200000 

200000 

200000 

200000 

200000 


00.00 

100.00 

0. 

00 

2C0000. 

00.00 

130.00 

0.00 

200000 

00.00 

100.00 

0. 

00 

200000. 

30.00 

100.00 

0.00 

200000 

00.00 

100.00 

0. 

00 

200000. 

00.00 

100.00 

3.00 

200000 

00.00 

100.00 

0. 

00 

200000. 

00.30 

100.00 

0.00 

2C0000 

00.00 

100.00 

0. 

00 

2000C0. 

00.00 

100.00 

0.00 

200000 

00.00 

100.00 

0. 

00 

200000. 

00.00 

100.00 

0.00 

200000 

00.00 

100.00 

0. 

00 

200000. 

00.00 

100.00 

0.00 

200000 

00.00 

100.00 

0. 

00 

200000. 

00.00 

100.00 

0.00 

200000 

00.00 

100.00 

0. 

00 

200000. 

00.00 

100.00 

0.00 

200000 

00.00 

100.00 

0. 

00 

200000. 

00.00 

100.00 

0.00 

200000 

00.00 

100.00 

0. 

00 

200000. 

00. OG 

100.00 

0.00 

200000 

00.00 

100.00 

0. 

00 

2000C0. 

00.00 

100.00 

0.00 

200000 

00.00 

100.00 

0. 

00 

200000. 

00.00 

100.00 

0.00 

200000 

00.00 

100.00 

0. 

00 

200000. 

00.00 

100.00 

0.00 

200000 

00.00 

100.00 

0. 

00 

200000. 

00.00 

100.00 

0.00 

200000 

00.00 

100.00 

0. 

00 

200000. 

00.00 

100.00 

0.00 

200000 

00.00 

100.00 

0. 

00 

200000. 

00.00 

100.00 

0.00 

200000 

00.00 

100.00 

0. 

00 

200000. 

00.00 

100.00 

0.00 

200000 

00.00 

100.00 

0. 

00 

200000. 

00.00 

130.00 

0.00 

200000 

>9  1 

9  200000 

.  0 

.9 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0. 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0. 

100.00 

o.co 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0. 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.1 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.1 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.03 

100.00 

0.00 

0.00 

0.1 

100.00 

0.00 

0. 

00 

0.03 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.30 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

10G.00 

0.00 

0.00 

0.( 

100.00 

o.co 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.< 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0,00 

100.00 

0.00 

0.00 

0.1 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

o.co 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

oo 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

100.00 

0.00 

0. 

00 

0.00 

100.00 

0.00 

0.00 

0.( 

INTERACTIVE  INPUTS  FOB  PROBLEM  1 


I 


J 


I 


! 


I 


I 


BEC'PTOB  SPACiNo  iM)? 

3C0.0C0C 

"(id  H*NY  KiNC  SITES? 

£ 

"Od  MANY  EHP.  ORTt-.  ECTNS? 

£ 

SOURCE  X/Y^2  (Above  SEC)  IN  KETERS? 

O.COOOOC jE^OO  O.CCPOOOOE^CO  30.0000C 
rtOuR  7 

7 

EOR  nR  from  7  to 

MIX  HT.  (M)  t  STA0U.?  — NEC.  MIX  MT  TC  STOP 
900.0000  2 

SOURCE  STRNOTh  (G/S)? 

1000.000 

UINO  SP0<M/S)  &  CIR.  AT  SITE  1  ^Ofi  HR 

1.0C00CC  270. COCO 

MIND  SPOCM/S)  ft  CIR.  AT  SITE  2  POR  HR 

1.000000  270.0000 

GRADIENT  WINC  SPC.  (M/S)  ft  OIR.  PO" 

1.0C0Q0C  27C.000C 

WIND  SPO(M/S)  ft  OIR.  AT  SITE  1  POR  HR 

1.00000C  27C.OOOO 

WINO  SPO<M/S)  ft  OIR.  AT  SITE  2  FOR  HR 

1.000000  27C.00C0 

GRADIENT  WIND  SPC.  (M/S)  8  DIR.  PO** 

1.000000  27C.00C0 

FOR  HR  FROM  8  TO 

MIX  MT.  <M)  8  STAEIL.?— NEG.  MIX  FT  TC  STCP 
1800.000  ^ 

SOURCE  STRNGTh  <G/S)? 

200.0000 

WIND  SP0<M/S)  ft  CIR.  AT  SITE  1  FOR  HR 

2.0GOOOC  315.0000 

WIND  SPO<M/S)  ft  CIR.  AT  SITS  2  FOR  HR 

2.000000  31S.00C0 

gradient  hind  SPC.  <M/S)  8  OIR. 

2.00000C  31S.00CC 

FOR  MR  FROM  9  TO  10 

MIX  MT.  <M)  ft  STA6IL. ?— NEC.  MIX  MT  TO  STOP 

2200.000  A 

SOURCE  STRNGTh  <G/S)? 

2CO.OOOO 

WIND  SP0<M/5)  8  CIR.  AT  SITS  1  FOR  MR 

2.000000  315.000C 

WIND  SPO<M/S)  ft  CIR.  AT  SITE  2  FOR  MR 

2.000000  315.00C0 

GRADIENT  WIND  SPO.  (M/S)  ft  DIR. 

2.OOCCO0  315.0000 

FOR  MR  FROM  10  TO  11 

MIX  MT,  (M)  ft  STA8IL.?— NEG.  MIX  MT  TC  STOP 

5C0.0000  5 

SOURCE  STRNGTh  (G/S)? 

3C0.0000 

WIND  SPD(M/S)  ft  OIR.  AT  SITE  1  FOR  HR 

3.000000  AS.OOOCO 

WIND  SPD(M/S)  8  CIR.  AT  SITE  2  FOR  MR 

3.000000  4S.000C0 

GRADIENT  WIND  SPC.  (M/S)  8  OIR. 

Z. 000000  45.00000 

FOR  MR  FROM  11  TO  12 


FOR  HR. 


FOR  MR 


FOR  MR 


127 


I 


MRyMiMMli 


V.-: .  >•; 


MIX  mT.  (M>  £ 

STAeiL.?"N£G.  MIX  mT 

TC  STOP 

SOO.CCOG 

< 

SOURCE  STRNGTh 

(G/S)? 

3C0.C00C 

WIND  SPD(M/S) 

i  CIR.  AT  SITE 

1 

FOR 

HR 

3.0C0C0u 

45.000C0 

WIND  SPD(H/S) 

g  CIR.  AT  SITE 

2 

FOR 

HR 

3.00000C 

45.00000 

GRADIENT  WIND 

SPC.  (M/S)  g  DIR. 

FOR 

HR 

3.000C00 

45.00000 

FOR  MR  FROM 

12  TO 

13 

MIX  HT.  (M)  g 

STABlL.?  — NEG.  MIX  MT 

TC  STCP 

1COO.OOO 

3 

SOURCE  STRNGTM 

<6/S)? 

100.0000 

WIND  SPOCM/S) 

g  CIR.  AT  SITE 

1 

FOR 

HR 

3.000000 

9C. 00000 

WIND  SP0(M/S} 

£  CIR.  AT  SITE 

2 

FOR 

HR 

3.000000 

9C. 00000 

GRADIENT  WIND 

SPC.  (H/S)  g  DIR. 

FOR 

HR 

3.000000 

90.00000 

FOR  MR  FROM 

13  TO 

14 

INTERACTIVE  OUTPUTS  FOR  SAMPLE  PROBLEM  1 


HOUR  NO. 

O.OOCOOOOE-^OC 
300.000C 
300.0000 
300.0000 
600.0000 
600.0000 
600.0000 
900.0000 
900.0000 
900.0000 
900.0000 
900.0000 
1 20C.000 
1200.000 
1 20C.000 
1 200. OCO 
120C.000 
1200.000 
1 20C.000 
1 SOC.OOO 
1S0C.000 
1500. 000 
1S0C.000 
1 SOC.OOO 
1S0C.000 
1 500.000 
180C.000 
1800.000 
1800.000 
1800.000 
1800.000 
1800.000 
1800.000 
1800.000 
1800.000 
2100.000 
2100.000 
21CC.000 
2100.000 
2100.000 
2100.000 
2100.000 
2100.000 
2100. OOC 
2400.000 
2400.000 
2400.000 
2400.000 
2400.000 
2400.000 
2400.000 
2400.000 
2400.000 
240C.000 
2400.000 
2700.000 
2700.000 


0 

C,OOCOOOO£+OC 

-300.0000 

C.00CCC00E*00 

300.0000 

-300.0000 

c.occooooe*oo 

3GC.OOOO 

-too. 0000 

-300.0000 
C.OOCOOOOE^CC 
300.0000 
600.0000 
-900. 0000 
-600.0000 
-300.C000 
C.OOOOOOOc+CC 
300.00C0 
600.0000 
900.0000 
-900.0000 
-600.0000 
-300.0000 
C.OOCCOOOE+OC 
300. coco 
600.0000 
900.C000 
-120C.000 
-90O.C000 

-too. 0000 

-300.0000 
C.OOCCOOOE+OC 
300. 0000 
6CO.COOO 
900.0000 
1200.000 
-120C.000 
-900.0000 
-6OO.CO00 
-300.C000 
C.OOCOOOOE-CG 
3C0.0C00 
too. 0000 

900.0000 
1200.000 
-1500. 000 
-1200. 000 
-900.0000 
-600.0000 
-300.0000 
C. 00000006*00 
300.0000 
eOO.OOOO 
900.0000 
1200.000 
1500.000 
-1500.000 
-1200.000 


4.09891046-05 

4.45929126-06 

0.1215399 

4.4592912E-06 

6.59453976-04 

4.01026536-02 

t.5945397E-04 

1 .43453956-05 

2.3362250E-03 

2.01005046-02 

2.3362250E-03 

1 .43453956-05 

8.6097720E-07 

9.1205358E-C5 

2.97837246-03 

1 .1557194E-02 

2.97837246-03 

9.12053586-05 

8.60977206-07 

7. 52203736-06 

2.49657616-04 

3.01801046-03 

7.7821C30E-C3 

3. 01801046-03 

2.49657616-04 

7.52203736-06 

1.07159006-06 

2.77012756-05 

4.21426126-04 

2.75604506-03 

5.63884016-03 

2.75604506-03 

4.21426126-04 

2. 77012756-05 

1 .071 59006-06 

4.27172566-06 

6.4490e10t-C5 

5.589e98t6-04 

2.48073586-03 

4.10192276-03 

2.46073586-03 

5.58969366-04 

e.449Cc106-C5 

4.271 72566-06 

6.80435286-07 

1 .06751526-05 

1.05240956-04 

6.68440896-04 

2.25402556- 05 
3.35045376-03 

2.25402556- 03 
6.6844C896-04 
1 .05240956-04 
1.06731526-05 
6.80435286-07 
1.67466576-06 
1.79328916-05 


2700.000 
27OC.OO0 
270C.000 
270C.000 
2700.000 
270C.0O0 
2700.000 
270C.000 
2700. 000 
300C.000 
3000.000 
3000.000 
300C.000 
3000.000 
300C.G0Q 
3000.000 
3000.000 
3000. OOC 
30GC.00C 
300C.000 
HOUR  NO. 
300.0000 
600.0000 
600.0000 
600.0000 
900.0000 
900.0000 
900.0000 
1200.000 
1 200.000 
120C.000 
1500. 000 
150C.000 
1500. OOC 
1 5OC.OO0 
1 500.000 
180C.OOO 
1800. OOC 
180C.000 
1600.000 
1  80C.00C 
1  80C.OOC 
210C.000 
210C.000 
210C.000 
2100.000 
210C.OOO 
2AOC.OOO 
2400. 000 
240C.000 
240C.000 
2400.000 
2400.000 
2700.000 
270C.000 
270C.000 
270C.000 
2700. 000 
2700. 000 
3000.000 


-900.0000 
-600.0000 
-300.0000 
C.OOCOOOOE^CC 
3CC.0000 
600.0000 
900.0000 
1200.000 
150C.000 
-1500.000 
-120C.000 
-900.0000 
-600.0C00 
-200. COCO 

c.oooccooe^cc 

300.CCOO 

600.0000 

900.0000 

120C.000 

1500.000 

1 

-300.0000 
-900.0000 
-600.0000 
-200.0000 
-120C.000 
-900.0000 
-600.0000 
-1500. coo 
-1200. 000 
-900.0000 
-210C.0C0 
-1800.000 
-1500. 000 
-1200.000 
-900.0000 
-240C.000 
-210C.000 
-180C.OOO 
-150C.CO0 
-1200.000 
-9C0.0000 
-240C.CC0 
-210C.000 
-160C.C00 
-153C.000 
-120C.000 
-2700.000 
-24OC.0OO 
-210C.000 
-1800.000 
-150C.000 
-1200.000 
-3000. 000 
-2700. 000 
-240C.C00 
-21GC.000 
-180C.000 
-1500.000 
-3000.000 


1 .28342826-04 
6. 61998006-04 
1.83542956-03 
2.56547526-03 
1.63542956-03 
6.61998006-04 
1.28342826-04 
1.79328916-05 
1.67406576-06 

2.65166736- 06 
2.39119226-05 
1.54220276-04 
6.09069316-04 
1.44230326-03 
1 .93689176-03 
1 .44230326-03 
6.09069316-04 
1.54220276-04 
2.39119226-05 

2.65166736- 00 

1.38695296-02 

2.62168096-05 

1 .05596966-02 

2.81822626-06 

8.40697906-05 

7.93065416-03 

4.52958956-04 

1.16341436-04 

4.55329106-03 

2.67777296-03 

2.16322636-07 

1.03960026-04 

2.85460546-03 

4.27213036-03 

7.25289146-05 

2.51535826-07 

5.73807106-05 

1 .60519466-03 

4.83449926-03 

5.70637706-04 

5.47011146-07 

2.7851 7096-05 

3.12201006-04 

3.97799546-03 

1.92645986-03 

4.67392756-05 

8.36228086-00 

3.03502406-04 

2.63858176-03 

3.1368C93E-03 

4.C533504E-04 

3.00372636-06 

1. 98802996-06 

9.6721C51E-C5 

1.13091046-03 

3.23578116-03 

1.45087246-03 

7.61189376-05 

1.81214156-05 


3000.000 

-2700.000 

4.08485478-04 

300C.000 

-2400. 000 

2.33901258-03 

300C.OOO 

-2100.000 

2.78363318-C3 

3000.000 

-180C.000 

5.67797638-04 

3000.000 

-1500.000 

’.51122458-05 

HOUR  NO. 

2 

300.0000 

-3C0.C000 

1.37692168-02 

oOO.OOCO 

-900.0000 

1.13060398-04 

600.0000 

-60O.C0OO 

1.14277438-02 

900.0000 

-1500. 000 

2.31463408-06 

900.000C 

-1200.000 

5.37233438-04 

900.0000 

-900.0000 

7.82898538-03 

900.0000 

-600.0000 

1.13060398-04 

1200.000 

-1800.000 

2. 04767008-05 

1 200.000 

-1500.000 

9.90881 358-04 

120C.OOO 

-1200. 000 

5.89605708-03 

1 200.000 

-9O0.CO0O 

5.37233438-04 

1 500.000 

-2400.000 

1. 66872918-06 

1 500.000 

-2100.000 

7.18383238-05 

1 50C.OOO 

-1800.000 

1 .18049278-03 

1500.000 

-1500.000 

4.1 3701928-03 

1500.000 

-1200.000 

9.90881358-04 

1 500.000 

-900.0000 

2. 31463408-06 

1 80C.000 

-3000.000 

1 .18115968-07 

1 800.000 

-2700.000 

6.99769278-06 

1800.000 

-2400.000 

1.34742638-04 

1800. 000 

-2100.000 

1.23193048-03 

180C.0O0 

-1800.000 

3.43829728-03 

1800.000 

-1500.000 

1.18049278-03 

180C.0O0 

-1200.000 

2.04767008-05 

2100.000 

-3000.000 

1.63144628-05 

2100.000 

-2700.000 

2.09814748-04 

2100.000 

-2400.000 

1.27171738-03 

2100.000 

-2100.000 

2.75689908-03 

210C.000 

-1800.000 

1.33192048-03 

210C.000 

-150C.O00 

7.18383238-05 

2400.000 

-3000.000 

2.69256685-04 

2400.000 

-2700. 000 

1 .18104228-03 

2400.000 

—  2  4  OC . 000 

2.22393318-03 

2400.000 

-210C.000 

1.27171738-03 

2400.000 

-1800.000 

1 .34742638-04 

2400. OOC 

-1500.000 

1 .66872918-06 

270C.000 

-3000.000 

1.16725258-03 

2700.000 

-2700. OCO 

1 .84729188-03 

2700.000 

-2400.000 

1 .181  04228-03 

2700. 000 

-2100. COO 

2.09gU7<.e-04 

2700.000 

-1800.000 

6. 9976927E- 06 

3000.000 

-3000.000 

1.50042115-03 

3000.000 

-2700.000 

1 .16725255-03 

3000.000 

-2400.000 

2.69256685-04 

3000.000 

-2100.000 

1 .831  44628-05 

3000.000 

-1  SOC.OOO 

1.18115968-07 

HOUR  NO. 

3 

-2700.000 

-3000.000 

5.26603168-06 

-2400.000 

-3000.000 

6.73488318-04 

-2400.000 

-2700.000 

1.02617228-04 

-2400.000 

-2400.000 

4.95081038-06 

-2100.000 

-3000.000 

5.51648588-03 

-2100.000 

-270C.000 

4.02194318-03 

-2100.000 

-2400.000 

1.17676408-03 
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-270C.OOO 

-900.0000 

1.9492374E-C5 

-27CC.OOO 

-600.0000 

1.36394906-04 

-270C.000 

-200.0000 

3.0719966E-04 

-2700.000 

C.0000000c-»00 

1 .66515066-04 

-2700.000 

300.0000 

1 .88403376-05 

-2700. COO 

600.0000 

5.1259138E-07 

-2A0C.000 

-1200.000 

1 .7081C88E-07 

-2A0C.000 

-900.0000 

7.0833871E-06 

-2400.000 

-600.0000 

1 .C008182E-04 

-240C.000 

-300.0000 

3.6898456E-04 

-240C.000 

C.00c0000£*00 

2.2S47843E-04 

-240C.000 

300.0000 

2.3248505E-05 

-2400.000 

600.C000 

3. 82876076-07 

-2100.000 

-900.0000 

1 .66438526-06 

-2100.000 

-600.0000 

5.57556966-05 

-2100.000 

-300.0000 

3.9303C79E-04 

-2100.000 

C.OOOOCOOt^OO 

3.39352446-04 

-2100.000 

300.0000 

2.8948C47E-G5 

-2100. COO 

600.0000 

2.44225116-07 

-1 800.000 

-900.0000 

1 .6376549E-C7 

-1800.000 

-600.0000 

1 .9398C94E-05 

-1800.000 

-200.0000 

3.672E318E-04 

-1800.000 

C.OOCOCOOE-^OC 

5.1807280E-04 

-1800.000 

300.0000 

3.2400396E-05 

-180C.OC0 

600.0000 

8.3304762E-C8 

-1 500.000 

-600.0000 

3.6264360E-C6 

-1500.000 

-200.0000 

2.9707851 E-04 

-1500.000 

C.OOCCOOOE+00 

6.6875864E-C4 

-1500. 000 

300.0000 

2.40889886-05 

-1200.000 

-600.000C 

2.64464786-07 

-1200.000 

-200.0000 

1 .9472C46E-04 

-1200.000 

C.OOCCOOOE+00 

9.4999908E-04 

-12CC.000 

3O0.C00O 

1.0736760E-C5 

-900.0000 

-200.C00C 

7.3852345E-05 

-900.0000 

C.OOCCOOOE^OO 

1.61328506-03 

-900.0000 

200. coco 

2.10920146-06 

-600.0000 

-200.0000 

3.22629o3E-06 

-600.0000 

C.OOCGOOOE^OO 

2.66752436-03 

-300.0000 

C.OOCCOOOE^CO 

4.94141186-03 

•’.A'J 
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FIGURE  4(b)  GRAPHICAL  OUTPUTS  FOR  SAMPLE  PROBLEM  1  (continued) 


FIRST  SOLUTION  FILE  (LU=21)  FOR  SAMPLE  PROBLEM  2 


10  0 

2  60000 

.  0.6 

431.87 

-197.99 

0.00 

2191 .24 

455.09 

-212.12 

0.00 

2125.89 

450.80 

-224.79 

0.00 

1916.68 

441  . -4 

-227.25 

0.00 

1846.45 

449.31 

-230.96 

0.00 

1961 .C6 

456.91 

-241 . 77 

0.00 

2082.49 

472.17 

-231.50 

0.00 

2222.94 

472 . 04 

-260.84 

O.OC 

2462.88 

461 .54 

-252.21 

0.00 

2820.35 

456.59 

-240.91 

0.00 

2927.15 

423.02 

-197.25 

0.00 

2367.78 

415.40 

-219.66 

-5. 30 

2350.71 

391 .07 

-240.43 

-5.43 

2083.95 

308.76 

-233.18 

-6.34 

2098.10 

418.07 

-240.56 

-7.18 

2239.52 

425.36 

-248.43 

-4.98 

2275 .61 

432.90 

-246.00 

-3.03 

2524.82 

472.77 

-248.69 

-13.18 

2775.48 

483.04 

-282.44 

-0.42 

2623.33 

465.69 

-252.38 

0.00 

2912.03 

444.29 

-199.85 

C.OO 

2496.53 

425.42 

-237.29 

-1  .79 

2214.65 

395.93 

-246. 4e 

1.18 

2031.28 

394.07 

-246.80 

1.35 

2221 .97 

401.37 

-237.37 

-2.46 

2379.98 

414.85 

-253.43 

-4.16 

2464.34 

430.10 

-255.79 

2.69 

2637.47 

446.97 

-234.52 

-2.45 

3072.97 

457.77 

-277.62 

-13.38 

2913.99 

456.57 

-267.34 

O.OC 

2461.91 

439.38 

-195.80 

0.00 

2567.73 

437.60 

-235.11 

-13.98 

2168.81 

409.21 

-290.56 

0.69 

2033.24 

391.49 

-258.57 

9.29 

2229.28 

401 .08 

-246.58 

5.27 

2481 .90 

407.66 

-248.00 

0.79 

2600.41 

428.61 

-253.85 

4.13 

2759.39 

451.92 

-235.31 

7.06 

3031.52 

471.29 

-226.34 

-11.74 

2837.42 

444.77 

-296.35 

0.00 

2127.36 

402.16 

-235.79 

0.00 

2575.54 

384.12 

-209.36 

-8.99 

2577.00 

426.74 

-264.95 

-16.35 

2021.04 

440.74 

-304.92 

7.59 

2051 .28 

410.37 

-257.95 

17.51 

2359.49 

425.36 

-236.40 

9.33 

2587.24 

446.74 

-237.96 

4.46 

2711.60 

463.24 

-221.20 

8.49 

2831 .08 

452.54 

-217.17 

-7.04 

2891.55 

428.30 

-294.92 

0.00 

2373.1  5 

432.49 

-262.15 

0.00 

2227.82 

401 .98 

-223.99 

12.05 

2295.12 

375.66 

-216.51 

-5.52 

2517.01 

431.37 

-261.71 

-16.55 

2063.47 

489.06 

-288.47 

1.93 

2012.75 

450.90 

-248.54 

15.29 

2402.90 

453.13 

-218.38 

4.64 

2712.09 

458.47 

-221 .83 

3.54 

2785.24 

464.23 

-219.34 

-6.31 

2868.63 

447.10 

-272.47 

0.00 

2396.07 

410.87 

-254.29 

0.00 

2124.43 

431.67 

-248.09 

4.62 

2180.51 

422.22 

-231.15 

13.66 

2141.01 

386.47 

-223.48 

3.23 

2542.37 

402.13 

-262.71 

-5.30 

2455,57 

450.40 

-267.29 

5.96 

2313.16 

454.29 

-226.22 

13.29 

2731 .59 

447.37 

-215.55 

5.31 

2773.05 

465.86 

-206.72 

-5.42 

2932.52 

446.44 

-262.10 

0.00 

2350.23 

420.95 

-249.32 

0.00 

2081.03 

427.40 

-227.76 

2.84 

2091.27 

441.76 

-239.63 

1.16 

2077,13 

482.52 

-227.61 

8.39 

2083.34 

474.53 

-218.14 

6.25 

2120.04 

472.17 

-248.67 

3.89 

2291 .22 

486.56 

-235.94 

12.44 

2411.63 

475.88 

-215.72 

9.08 

2676.97 

461.52 

-202.12 

3.88 

2856.44 

447.01 

-245.83 

0.00 

2545.30 

416.56 

-226.58 

0.00 

1994,71 

436.57 

-222.41 

3.04 

2046.40 

447.29 

-218.22 

2.95 

2085.90 

445.90 

-215.32 

2.43 

2179.54 

465.94 

-226.81 

-1.21 

2278.54 

487.86 

-228.03 

-0.42 

2297.07 

488.70 

-242.57 

3.49 

2403.38 

487.39 

-230.06 

8.26 

2635.03 

468.63 

-214.73 

8.78 

2702.33 

462.50 

-227.75 

C  DC 

2741 .35 

420.91 

-201 .68 

0.00 

1979.59 

447.94 

-202.21 

o.co 

1992.76 

466.93 

-204.34 

0.00 

2006.41 

484.12 

-211.12 

0.00 

2075 .18 

488.68 

-206.86 

0.00 

2234.16 

488.93 

-225.47 

0.00 

2374.61 

499.59 

-234.75 

0.00 

2438.50 

505.06 

-231.20 

0.00 

2488.24 

495.41 

-227.33 

0.00 

2547.25 

485.76 

-233.19 

0.00 

2894.48 

1010.39 

-469.43 

0.00 

42729.25 

1059.73 

-488.55 

0.00 

41454.94 

1074.77 

-512.01 

0.00 

37375.25 

1060.97 

-511.23 

0.00 

36005.85 

1049.38 

-504.03 

0.00 

38240.64 

1037.47 

-512.94 

C.OO 

40608.57 

1040.29 

-490.89 

0.00 

43347.39 

1016.28 

-536.19 

0.00 

48026.18 

975.17 

-515.07 

0.00 

54996.84 

973.10 

-497.21 

0.00 

57079.48 

971.07 

-449.11 

C.OO 

46171.79 

957.03 

-484.54 

-8.28 

45838.94 

939.31 

-526.38 

-8.61 

40637.10 

945.74 

-506.12 

-10.37 

40912.39 

957.50 

-507.28 

-11.50 

43670.71 

960.55 

-515.85 

-8.24 

<,4374.44 

947.83 

-501.20 

-5.48 

49233.92 

996.02 

-498.89 

-19.70 

54121 .94 

1028.68 

-560.58 

-0.81 

51154.90 

987.51 

-497.00 

0.00 
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993.77 

-444.21 

0.00 

48682.36 

933.62 

-513.27 

-2.75 

43185.71 

948.34 

-537.95 

1.91 

39e10.05 

919.13 

-523.44 

1.73 

43323.36 

911.59 

-495.55 

-4.12 

46409.53 

923.38 

-515.76 

-6.74 

46054.71 

933.29 

-510.94 

2.85 

51430.63 

933.08 

-460.48 

-3.98 

59922.89 

964.11 

-534.26 

-18.70 

56822.71 

1000.03 

-523.75 

0.00 

48007.17 

■L 

977.31 

-433.51 

0.00 

50070.79 

1004.37 

-515.45 

-22.43 

42681 .70 

966.51 

-615.45 

1  .09 

39648.09 

909.75 

-544.19 

14.16 

43471 .01 

899.24 

-507.99 

7.48 

48397.06 

897.50 

-501 .51 

0.73 

50707.94 

919.64 

-502.07 

5.26 

53808.12 

941.59 

-460.75 

9.96 

59114.57 

iwkW 

990.59 

-446.39 

-15.72 

55329.68 

1008.02 

-579.90 

0.00 

41483.47 

910.05 

-504.89 

0.00 

50222.94 

872.49 

-456.47 

-13.81 

50251.47 

995.45 

-574.58 

-26.53 

39410.34 

1010.58 

-636.92 

11.97 

39999,95  J 

922.40 

-534.94 

26.27 

46010.11 

926.61 

-484.39 

13.38 

50451.18 

951.34 

-479.20 

6.12 

52876.17 

971.47 

-443.62 

11.98 

55206.05 

951.01 

-430.06 

-9.47 

56385.27 

950.51 

-570.27 

0.00 

46276.39 

993.49 

-568.77 

0.00 

43442.48 

926.35 

-496.95 

19.18 

44754.82 

854.81 

-471.50 

-8.43 

49081 .77 

989.83 

-566.41 

-26.41 

40237.70 

1091.03 

-609.82 

2.79 

39248.68 

982.79 

-516.89 

22.39 

46856.48 

960.38 

-449.91 

6.27 

52885.68 

963.81 

-449.31 

4.91 

54312.14  fe  "a 

968.70 

-439.24 

-8.55 

55938.30 

976.46 

-537.25 

0.00 

46723.34 

965.97 

-566.62 

0.00 

41426.41 

987.78 

-550.73 

7.46 

42520.04 

968.29 

-519.67 

22.02 

41749.74 

864.26 

-483.15 

4.84 

49576.27 

893.82 

-549.54 

-7.95 

47883.54 

986.93 

-557.95 

8.95 

45106.69 

958.62 

-467.39 

18.98 

53266.06 

943.92 

-444.29 

7.49 

54074.39 

965.28 

-421.83 

-7.29 

57184.08 

976.65 

-530.74 

0.00 

45829,43 

987.11 

-569.32 

0.00 

40580.05 

987.68 

-528.42 

4.64 

40779.75 

1006.23 

-545.81 

1.38 

40503.96 

1069.30 

-519.28 

13.53 

40722.69 

1047.72 

-495.64 

9.91 

41340.83 

1023.20 

-534.10 

5.87 

44678.75 

1035.72 

-502.87 

18.58 

47027.66 

996.87 

-454.41 

12.97 

52200.97 

*.*/.*•  *. 

i 

961.07 

-423.17 

5.72 

55700.56 

960.10 

-505.20 

0.00 

49633.33 

988.40 

-549.66 

c.oo 

38896.82 

1005.85 

-532.58 

5.11 

39904.85 

• 

1010.80 

-518.15 

4.89 

40675.14 

902.35 

-501.91 

3.95 

42501 .01 

1013.14 

-510.47 

-1.88 

44431.50 

1046.55 

-506.37 

-0.67 

44792.87 

c_ 

1037.36 

-521 .30 

5.20 

46866 .00 

101 7.09 

-487.17 

12.10 

51383.1 3 

982.25 

-456.28 

12.84 

52695.48 

971.21 

-475.84 

0.00 

53456.26 

995.34 

-519.19 

0.00 

38602.02 
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0.99 

48397.06 

-24.87 

-75.18 

0.86 

50707.94 

-23.40 

-71.43 

1.23 

53808.12 

-23.60 

-65.48 

-0.01 

59114.57 

-25.65 

-67.08 

-2.47 

55329.68 

-25.85 

-85.40 

0.00 

41483.47 

-25.68 

-73.61 

O.GC 

50222.94 

-27.62 

-75.18 

-1.41 

50251.47 

-25.79 

-84.04 

-0.98 

39410.34 

-21 .04 

-83.62 

0.76 

39999.95 

-24.16 

-79.25 

1.02 

46010.11 

-25.34 

-75.75 

0.77 

50451.18 

-24.50 

-70.32 

0.62 

52876.17 

-25.90 

-67.02 

0.26 

55206.05 

-26.60 

-67.84 

-1.21 

56385.27 

-26.04 

-83.17 

0.00 

46276.39 

-26.41 

-74.78 

0.00 

43442.48 

-27.93 

-77.32 

0.42 

44754.82 

-26.66 

-77.47 

-0.52 

49081 .77 

-25.21 

-83.32 

-0.92 

40237.70 

-22.61 

-80.48 

1.00 

39248.68 

-24.19 

-75.24 

1.64 

46856.48 

-25.89 

-69.53 

1  .05 

52885.68 

-25.76 

-68.90 

0.37 

54312.14 

-26.33 

-67.06 

-1 .02 

55938.30 

-25.44 

-82.22 

0.00 

46723.34 

-25.83 

-76.57 

O.OC 

41426.41 

-24.83 

-76.23 

-0.14 

42520.04 

-26.61 

-79.46 

0.58 

41749.74 

-24.29 

-76.98 

0.87 

49576.27 

-20.55 

-79.02 

-0.52 

47883.54 

-21.68 

-78.51 

0.65 

45106.69 

-23.85 

-69.86 

0.97 

53266.06 

-26.08 

-70.68 

0.45 

54074.39 

-26.76 

-66.80 

-1.16 

57184.08 

-26.27 

-31.17 

0.00 

45829.43 

-24.51 

-76.58 

0.00 

40580.05 

-25.89 

-76.59 

-0.13 

40779 .75 

-24.02 

-79.22 

-0.06 

40503.96 

-24.76 

-75.63 

-0.21 

40722.69 

-26.47 

-78.52 

0.39 

41 340.83 

-22.19 

-76.75 

0.77 

44673.75 

-23.46 

-73.65 

0.75 

47027.66 

-25.51 

-70.49 

1  .08 

52200.97 

-27.14 

-68.90 

-0.57 

55700.56 

-27.43 

-77.64 

0.00 

49633.33 

-25.42 

-76.24 

0.00 

38896.82 

-23.69 

-76.84 

0.16 

39904.85 

-23.51 

-76.69 

0.30 

40675.14 

-22.99 

-78.16 

0.51 

42501 .01 

-21.39 

-75.83 

0.42 

44431.50 

-21.89 

-75.52 

0.41 

44792.87 

-21.20 

-75.11 

0.94 

4  6866 .00 

-21.95 

-71 .30 

0.64 

51 383.13 

-26.35 

-73.64 

0.01 

52695.48 

-27.26 

-73.55 

O.OC 

53456.26 

-24.34 

-75.82 

0.00 

38602.02 

-23.66 

-75.03 

0.00 

38858.78 

-22.16 

-76.60 

0.00 

39125.05 

-20.18 

-75 . 66 

0.00 

40465.92 

-19.58 

-75.54 

0.00 

43566.11 

-19.1 5 

-75.50 

0.00 

46304.92 

-19.52 

-74.55 

0.00 

47550.70 

-21.48 

-73.64 

O.OC 

48520.69 

-22.11 

-75.87 

0.00 

49671.38 

-23.63 

-73.55 

0.00 

56442.32 

0  8 

2  60000. 

0.6 

27.96 

-9.84 

0.00 

2191.24 

29.20 

-10. 50 

0.00 

21 25 . 89 

29. ZO 


-10. 50 


0.00  2125.69 


31 .01 

-11.77 

32.95 

-11.93 

32.11 

-10.34 

26.63 

-7.65 

26.38 

-6.87 

28.14 

-9.97 

29.70 

-9.81 

28.97 

-8.61 

27.04 

-8.79 

25.94 

-8.53 

28.53 

-10.00 

28.37 

-8.65 

28.12 

-7.99 

25.04 

-7.24 

25.62 

-7.79 

28.13 

-10.88 

27.34 

-7.95 

27.23 

-7.21 

26.34 

-6.11 

23.79 

-8.21 

28.29 

-10.35 

27.50 

-8.52 

27.79 

-6.85 

25.57 

-5.19 

25.40 

-10.42 

24.24 

-6.70 

30.57 

-11.03 

27.16 

-6.25 

25.44 

-5.39 

24.47 

-10.39 

25.97 

-8.68 

24.46 

-7.73 

26.16 

-6.19 

24.91 

-4.79 

23.96 

-10.31 

25.61 

-9.09 

27.91 

-8.53 

26.85 

-7.36 

24.60 

-4.66 

23.51 

-10.16 

24.64 

-8.60 

25.09 

-7.79 

25.96 

-7.24 

24.54 

-4.85 

22.92 

-9.10 

24.87 

-8.69 

25.06 

-7.55 

25.09 

-6.95 

24.55 

-5.48 

-1.06 

37.94 

-1.35 

39.73 

3.72 

38.61 

4.13 

38.02 

1.10 

38.43 

-1  .08 

37.07 

0.66 

42.47 

1.88 

39.32 

2.01 

37.92 

-2.31 

38.14 

-1.66 

35.72 

0.89 

43.70 

0.00 

1916.63 

0.00 

1961.06 

0.00 

2222.94 

0.00 

2820.35 

0.00 

2367.78 

-0.31 

2083.95 

-0.55 

2239.52 

-0.40 

2524.82 

-0.07 

2623.33 

0.00 

2496.53 

0.08 

2031.28 

-0.25 

2379.98 

-0.10 

2637.47 

-0.48 

2913.99 

0.00 

2567.73 

0.04 

2033.24 

0.19 

2481.90 

0.05 

2759.39 

-0.25 

2837.42 

O.OC 

2575.54 

-0.97 

2021.04 

0.92 

2359.49 

0.16 

271 1 .60 

-0.17 

2891 . 55 

0.00 

2227.82 

-0.25 

2517.01 

0.04 

2012.75 

0.10 

2712.09 

-0.16 

2868.63 

0.00 

21 24.43 

0.75 

2141 .01 

-0.24 

2455.57 

0.56 

2731.59 

-0.09 

2932.52 

0.00 

2081 .03 

0.07 

2077.13 

0.34 

2120.04 

0.60 

2411.68 

0.26 

2856,44 

0.00 

1994.71 

0.15 

2065.90 

-0.10 

2278.54 

0.09 

2403,38 

0.42 

2702.33 

0.00 

1979.59 

0.00 

2006.41 

0.00 

2234.16 

0.00 

2438.50 

0.00 

2547.25 

0.00 

42729.25 

0.00 

37375.25 

0.00 

38240,64 

0.00 

43347.39 

o.oo 

54996.84 

0.00 

461 71 .79 

0.55 

40637.10 

-0.24 

43670. 71 

-0.69 

49233.92 

-0.19 

51154.90 

0.00 

48682.36 

-C.01 

39610.05 

32.58 

-12.22 

32.76 

-11.19 

29.73 

-9.85 

25.05 

-6.74 

26.52 

-9.18 

29.25 

-10.01 

30.12 

-9.73 

27.30 

-8.25 

24.88 

-6.20 

27,40 

-9.73 

28.22 

-9.22 

23.65 

-8.52 

26.08 

-6.55 

25.35 

-6.95 

27.67 

-9.61 

27.42 

-9.25 

27.58 

-7.59 

26.26 

-6.22 

27.12 

-8.16 

24.21 

-6.85 

29.02 

-11.24 

27.49 

-7.10 

27.26 

-6.07 

25.14 

-6.82 

25.18 

-8.15 

28.05 

-9.82 

28.38 

-S.01 

26.67 

-5.74 

25.13 

-6.12 

25.25 

-9.29 

23.89 

-6.73 

26.87 

-8.43 

25.67 

-5.32 

25.21 

-6.30 

24.74 

-9.10 

27.21 

-9.33 

26.93 

-8.11 

25.89 

-5.70 

24.40 

-5.49 

24.16 

-9.02 

24.75 

-7.94 

26.07 

-7.80 

24.96 

-6.12 

23.80 

-4.75 

24.16 

-8.84 

25.19 

-8.43 

24.86 

-6.97 

25.29 

-6.49 

22.87 

-4.20 

-2.09 

37.93 

1.90 

40.08 

4.34 

39.02 

2.49 

37.88 

-0.02 

38.05 

-1.21 

37.93 

1  .90 

41  .  30 

2.23 

39.65 

-0.21 

35.50 

-1  .43 

33.14 

-0.90 

40.12 

1.09 

41.61 

0.00 

1846.45 

0.00 

2082.49 

0.00 

2462.88 

0.00 

2927.15 

-0.26 

2350.71 

-0.49 

2098.10 

-0.45 

2275.61 

-0.83 

2775.48 

0.00 

2912.03 

0.00 

2214.65 

-0.02 

2221 .97 

-0.38 

2464.34 

-0.27 

3072.97 

0.00 

2461 .91 

-0.7o 

2188.81 

0.47 

2229.28 

-0.07 

2600.41 

0.36 

3031 .52 

0.00 

2127.36 

-0.35 

2577.00 

0.42 

2051.28 

0.42 

2587.24 

0.40 

2831 .08 

0.00 

2373.1  5 

0.64 

2295.12 

-0.96 

2063.47 

0.69 

2402.90 

0.13 

2785 .24 

0.00 

2396.07 

0.27 

2180.51 

0.08 

2542.37 

0.28 

2313.16 

0.21 

2773.05 

0.00 

2350.23 

0.17 

2091 .27 

0.5C 

2086.34 

0.14 

2291 .22 

0.32 

2676.97 

0.00 

2545.30 

0.16 

2046.40 

0.10 

2179.54 

-0.06 

2297.07 

0.34 

2635.03 

0.00 

2741 .35 

0.00 

1992.76 

0.00 

2075 .1  8 

0.00 

2374.61 

0.00 

2488.24 

0.00 

2894.48 

0.00 

41454.94 

0.00 

36005.85 

0.00 

40608.57 

0.00 

48026.18 

0.00 

57079.48 

0.40 

45838.94 

-0.21 

40912.89 

-0.39 

44374.44 

-0.13 

54121 .94 

0.00 

56784 .67 

0.64 

45185.71 

-0.48 

h3328 . 36 
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39.55 

37.90 

36.57 

35.87 

44.95 

39.50 
37.09 
34.52 
37.93 
43.28 
40.83 
36.35 
34.69 
39.17 

39.25 

42.25 

35.66 

34.50 
39.92 

40.66 

40.96 
36.04 
34.19 
39.98 
40.89 
40.02 
38.09 

35.12 
39.61 
39,49 
39.08 

38.97 
37.59 

39.12 
39.37 
38.68 
38.64 
38.96 

60000. 

8.77 
8.36 
7.89 
8.30 

9.79 
8.62 
8.85 
8.05 
8.34 
9.07 
8.25 

8.79 
7.93 
8.22 
8.14 
8.14 
9.05 

7.79 

7.78 
6.29 
8.61 
8.21 


46409.53 

51430.68 
56822.71 
50070.79 
39648.09 
48397.06 
53808.12 

55329.68 
50222.94 
39410.3'4 

46010.11 
52876.17 
56385.27 

43442.48 
49061 .77 

39248.68 

52885.68 
55938.30 
41426.41 
41749.74 

47883.54 
53266.06 
57184.08 
40580.05 
40503.96 
41340.83 
47027.66 
55700.56 
38896.82 
40675.14 
44431 .50 
46666.00 

52695.48 
38602.02 
39125.05 

43566.11 
47550.70 
49671 .38 

2191.24 
1916.68 
1961 .06 

2222.94 
2820.35 
2367.78 

2083.95 

2239.52 
2524.82 
2623.33 

2496.53 
2031 .28 

2379.98 
2637.47 

2913.99 
2567.73 

2033.24 
2481 .90 
2759.39 
2837.42 

2575.54 
2021 .04 


0.85 

-0.50 

-2.90 

-0.51 

0.35 

0.36 
-0.89 
-0.74 
1.63 
-2.71 
0.17 
-0.23 
-0.01 
1.12 
-0.67 
-1  .02 
-0.21 
-0.61 
-1.01 
0.33 
-2.19 
0.15 
-0.24 
-0.55 
-1 .95 
-2.46 
-0.77 
0.45 
-1.67 
-1.81 
-2.92 
-2.60 
0.16 
-2.04 
-3,92 
-4.04 
-3.29 
-1.86 

-3»  64 
-4.41 
-5.79 
-8.68 
-10.89 
-2.73 
-3.63 
-5.59 
-8.93 
-11.19 
-2.14 
-3.32 
-5.22 
-7.81 
-11.15 
-1.35 
-2.90 
-4.70 
-7.07 
-10.02 
-0.06 
-3.21 


39.23 
33.88 
41 .05 
39.75 

42.43 
38.69 
34.02 
44.06 
38.04 

43.92 
37.87 
34.49 
43.07 

39.43 

42.92 
38.91 
35.41 
42.29 
39.62 
39.22 
40.85 
36.14 
41.77 
39.51 
39.02 
39.79 
36.17 
39.95 
39.71 

39.95 

38.91 

36.93 
37.83 
38.73 

38.98 

38.93 
38.20 

37.98 


48054.71 

55922.80 

48007.1 7 

42681 .70 
43471 .01 

50707.94 
59114.57 

41483.47 

50251 .47 

39999.95 

50451.18 
55206.05 

46276.39 
44754.82 

40237.70 

46856.48 
54312.14 
46723.34 
42520.04 
49576.27 

45106.69 

54074.39 
45829.43 

40779.75 

40722.69 

44678.75 
52200.97 
49633.33 
39904.85 
42501 .01 
44792.87 
51383.13 
53456.26 

38858. 75 

40465.92 

46304.92 

48520.69 
56442.32 

2125.89 

1846.45 

2082.49 

2462.88 

2927.15 

2350.71 

2096.10 

2275.61 

2775.48 

2912.03 

2214,65 

2221 .97 
2464 . 34 

3072.97 
2461 .91 
2183.31 

2229.28 
2600.41 
3031 .52 
2127.36 
2577.00 

2051 .28 
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8.02 

19.74 

-0.44 

53266.06 

-7.41 

19.55 

-0.19 

54074.39 

7.62 

18.44 

0.32 

57164.08 

-7.95 

22.55 

0.00 

45829.43 

7.75 

22.59 

0.00 

40530.05 

-7.59 

21.99 

-0.03 

40779.75 

8.30 

22.68 

-0.01 

40503.96 

-9.03 

21.60 

-0.13 

40722.69 

3.54 

21.83 

-0.21 

41340.83 

-9.11 

21.97 

-0.23 

44678.75 

9.05 

20.93 

-0.39 

47027.60 

-8.16 

19.64 

-0.38 

52200.97 

7.41 

18.87 

0.03 

55700.56 

-7.39 

21.56 

O.OC 

49633.33 

7.49 

22.21 

0.00 

38896.82 

-8.16 

22.04 

-0.10 

39904.85 

8.42 

21.79 

-0.12 

40675.14 

-8.39 

21.84 

-0.15 

42501 .01 

9.05 

21.48 

-0.06 

44431.50 

-9.44 

21.35 

-0.07 

44792.87 

9.47 

21.45 

-0.25 

46866.00 

-9.07 

20.23 

-0.28 

51383.13 

7.77 

20.25 

-0.17 

52695.48 

-7.49 

20.43 

0.00 

53456.26 

7.72 

21.63 

0.00 

38602.02 

-8.44 

21.36 

0.00 

38858.78 

9.16 

21.62 

0.00 

39125.05 

-9.85 

21.44 

0.00 

40465.92 

9.89 

21 .11 

0.00 

43566.11 

-9.83 

21.34 

0.00 

46304.92 

9.93 

21.24 

0.00 

47550.70 

-9.63 

20.92 

0.00 

48520.69 

9.29 

21.15 

0.00 

49671.38 

-8.51 

20.64 

0.00 

56442.32 

I 
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SECOND  SOLUTION  FILE  (LU==22)  FOR  SAMPLE  PROBLEM  2 

IQ  0 

2  180000 

.  0.6 

431.67 

-197.99 

0.00 

2191.24 

455.09 

-212.12 

0.00 

2125.89 

450.80 

-224.79 

0.00 

1916.68 

441.34 

-227.25 

0.00 

1846.45 

449.31 

-230.96 

0.00 

19e1 .06 

456.91 

-241.77 

0.00 

2082.49 

472.17 

-231.50 

0.00 

2222.94 

472.64 

-260.84 

0.00 

2462.88 

401.54 

-252.21 

0.00 

2820.35 

456.59 

-240.91 

0.00 

2927.15 

423.02 

-197.25 

0.00 

2367.73 

415.40 

-219.66 

-5.30 

2350.71 

391.07 

-240.43 

-5.43 

2083.95 

398.76 

-233.18 

-6.34 

2098.10 

418.07 

-240.56 

-7.18 

2239.52 

425.36 

-248.43 

-4.98 

2275.61 

432.90 

-246.00 

-3.03 

2524.82 

472.77 

-248.69 

-13.18 

2775.48 

483.04 

-282.44 

-0.42 

2623.33 

465.69 

-252.38 

0.00 

2912.03 

444.29 

-199.85 

0.00 

2496.53 

425.42 

-237.29 

-1.79 

2214.65 

395.93 

-246.46 

1.18 

2031.23 

394.07 

-246.80 

1.35 

2221 .97 

401 .37 

-237.37 

-2.46 

2379.98 

414.85 

-253.43 

-4.16 

2464.34 

430.10 

-255.79 

2.69 

2637.47 

446.97 

-234.52 

-2.45 

3072.97 

457.77 

-277.62 

-13.38 

2913.99 

456.57 

-267.34 

0.00 

2461.91 

439.38 

-195.80 

0.00 

2567.73 

437.60 

-235.11 

-13.98 

2188.81 

409.21 

-290.56 

0.69 

2033.24 

391.49 

-258.57 

9.29 

2229.28 

401 .08 

-240.58 

5.27 

2481.90 

407.66 

-248.00 

0.79 

2600.41 

428.61 

-253.85 

4.13 

2759.39 

451.92 

-235.31 

7.06 

3031.52 

471.29 

-226.34 

-11.74 

2337.42 

444.77 

-296.35 

0.00 

2127.36 

402 .16 

-235.79 

0.00 

2575.54 

384.12 

-209.36 

-8.99 

2577.00 

426.74 

-264.95 

-16.35 

2021.04 

440.74 

-304.92 

7.59 

2051 .28 

410.37 

-257.95 

17.51 

2359.49 

425.36 

-236.40 

9.33 

2587.24 

446.74 

-237.96 

4.46 

2711.60 

463.24 

-221.20 

8.49 

2831 .08 

<•52.54 

-217.17 

-7.04 

2891.55 

428.30 

-294.92 

0.00 

2373.15 

432.49 

-262.15 

0.00 

2227.82 

401.98 

-223.99 

12.05 

2295.12 

375.66 

-216.51 

-5.52 

2517.01 

431.37 

-261.71 

-16.55 
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1.00 

159268.69 

-26.19 

-75.26 

1 .66 

166856.68 

-69.53 

1.05 

172885.69 

-25.76 

-68.90 

0.37 

176312.16 

-67.06 

-1.02 

175938.30 

-25.66 

-82.22 

0.00 

166723.36 

-76.57 

0.00 

161626.61 

-26.83 

-76.23 

-0.16 

162520.05 

-79.66 

0.58 

161769.73 

-26.29 

-76.98 

0.87 

169576.27 

-79.02 

-0.52 

167883.55 

-21 .63 

-78.51 

0.65 

165106.69 

-69.86 

0.97 

173266.06 

-26.08 

-70.68 

0.65 

176076.39 

-66.80 

-1 .16 

177186. C3 

-26.27 

-81.17 

0.00 

165829.66 

-76.53 

0.00 

160580.05 

-25.89 

-76.59 

-0.13 

160779.75 

-79.22 

-0.06 

160503.97 

-26.76 

-75.63 

-0.21 

160722.69 

-76.52 

0.39 

161360.83 

-22.19 

-76.75 

0.77 

166678.75 

-73.65 

0.75 

167027.66 

-25.51 

-70.69 

1.08 

172200.97 

-68.90 

-0.57 

175700.56 

-27.63 

-77.66 

0.00 

169633.33 

-76.26 

0.00 

158896.83 

-23.89 

-76.86 

0.16 

159906.86 

-76.69 

0.30 

160675.16 

-22.99 

-78.16 

0.51 

162501 .02 

-75.83 

0.62 

166631 .50 

-21.89 

-75.52 

0.61 

166792.88 

-75.11 

0.96 

166866.00 

-21.95 

-71.30 

0.66 

171383.13 

-73.66 

0.01 

172695.63 

-27.26 

-73.55 

0.00 

173656.27 

-75.82 

0.00 

158602.02 

-23.66 

-75.03 

0.00 

158858.78 

-76.60 

c.oo 

159125. C5 

-20.18 

-75.66 

0.00 

160665.92 

-75.56 

0.00 

163566.11 

-19.1 5 

-75.50 

0.00 

166306.92 

-76.55 

0.00 

167550.70 

-21.63 

-73.86 

0.00 

168520.69 

-75.87 

0.00 

169671 .38 

-23.63 

-73.55 

0.00 

176662.33 

2  180000 

.  0.6 

-9.86 

0.00 

2191 .26 

29.20 

-10.50 

0.00 

2125.89 

29.20 


-10.50 


0.00  2125.89 


1846.45 

2082.49 

2462.88 

2927.15 
2350.71 
2098.10 

2275.61 

2775.48 
2912.03 
2214.65 

2221.97 

2464.34 

3072.97 
2461.91 
2188.81 

2229.28 
2600.41 
3031.52 

2127.36 
2577.00 

2051.28 

2587.24 
2831.08 

2373.15 
2295.12 

2063.47 
2402.90 

2785.24 
2396.07 
2180.51 

2542.37 

2313.16 
2773.05 

2350.23 
2091.27 

2088.34 
2291.22 

2676.97 
2545.30 
2046.40 
2179.54 
2297.07 
2635.03 

2741.35 
1992.76 
2075.18 

2374.61 

2488.24 

2894.48 

161454.94 
156005.86 
160608.58 
168026.19 

177079.48 

165838.94 
160912.89 
164374.44 

174121 .94 
176784.67 
163185.72 
163328.36 


39.23 

-0.35 

168054.72 

33.88 

-0.38 

179922.89 

41.05 

0.00 

168007.17 

39.75 

0.75 

162681.70 

42.43 

-0.63 

163471.02 

38.69 

-0.38 

170707.94 

34.02 

-0.11 

179114.58 

44.06 

0.00 

161483.47 

38.04 

0.78 

170251.47 

43.92 

-0.47 

159999.95 

37.87 

-0.49 

170451.19 

34.49 

-0.26 

175206.05 

43.07 

0.00 

166276.39 

39.43 

-0.41 

164754.83 

42.92 

0.71 

160237.70 

38.91 

-0.98 

166856.48  f 

35.41 

-0.22 

174312.14  * 

42.29 

0.00 

166723.34 

39.62 

-0.03 

162520.05 

39.22 

-0.44 

169576.27 

40.85 

-0.39 

165106.69  ■ 

36.14 

-0.28 

174074.39 

41.77 

0.00 

165829.44 

39.51 

0.00 

160779.75 

39.02 

-0.07 

160722.69 

39.79 

-0.41 

164678.75 

36.17 

-0.63 

172200.97 

39.95 

0.00 

169633.33  < 

39.71 

-0.13 

159904.86 

39.95 

-0.27 

16250U02 

33.91 

-0.17 

164792.88 

36.93 

-0.42 

171383.13 

37.83 

0.00 

173456.27 

38.73 

0.00 

158858.78  I 

38.98 

0.00 

160465.92  ' 

33.93 

0.00 

166304.92 

33.20 

0.00 

168520.69 

37.98 

0.00 

176442.33 

8.36 

0.00 

2125.89  , 

8.06 

0.00 

1846.45 

8.23 

0.00 

2082.49  ' 

9.25 

0.00 

2462.88 

9.79 

0.00 

2927.15 

8.38 

0.14 

2350.71 

8.35 

0.03 

2098.10 

8.37 

0.02 

2275.61 

8.22 

0.25 

2775.48 

8.70 

0.00 

2912.03  ^ 

8.60 

0.17 

2214.65 

8.29 

-0.11 

2221.97 

8.18 

0.00 

2464.34 

7.38 

-0.01 

3072.97 

7.82 

0.00 

2461.91 

8.20 

0.24 

2188.81 

8.29 

-0.20 

2229.28  ' 

7.85 

-0.07 

2600.41  , 

6.99 

-0.12 

3031.52 

7.17 

0.00 

2127.36 

7.89 

0.23 

2577.00 

8.39 

-0.14 

2051  .28 

7.27 

6.38 

6.71 

7.76 

7.65 

7.07 

6.19 

5.87 

7.57 

7.08 

7.22 
6.04 
5.44 
7.07 

6.22 
6.60 
5.78 
5.33 
6.67 
6.36 
6.14 

5.83 
5.18 
5.61 

5.84 
6.12 
5. 80 
5.87 

21.08 
22.22 
72 


2587.24 
2831 .08 

2373.15 
2295.12 

2063.47 
2402.90 

2785.24 
2396.07 
2180.51 
2542.37 

2313.16 
2773.05 

2350.23 
2091.27 

2088.34 
2291.22 
2676.97 
2545.30 
2046.40 
2179.54 
2297.07 
2635.03 

2741.35 
1992.76 
2075.18 
2374.61 

2488.24 

2894.48 

161454.94 
156005.86 

160608.58 

168026.19 

177079.48 

165838.94 

160912.89 
164374.44 

174121.94 
176784.67 

163185.72 
163328.36 

168054.72 

179922.89 
168007.17 

162681.70 
163471  .02 

170707.94 

179114.58 

161483.47 

170251.47 

159999.95 

170451.19 
175206.05 
166276.39 
164754.83 

160237.70 

166356.48 
174312.14 
166723.34 
162520.05 
169576.27 
165106.69 
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INTERACTIVE  INPUTS  FOR  SAMPLE  PROBLEM  2 


RECEPTOR  SPACING  (M)? 

100C.OOO 

HOW  MANY  WIND  SITES? 

4 

HOW  MANY  EMP.  ORTH.  FCTnS? 

3 

SOURCE  X/Y/Z  (ABOVE  SFC)  IN  METERS? 

o.oooooooE^oo  o.cooooooe+co  30.00000 

HOUR? 

7 

FOR  MR  FROM  7  TO  8 

MIX  MT.  <M)  &  STABIL.?"N£G.  MIX  HT  TO  STOP 
620.0000  1 
SOURCE  STRNCTh  (G7S)? 

1000.000 

MIND  SPO(M/S}  S  OIR.  AT  SITE  1  FOR  HR 

1.000000  270.0000 

HIND  SPO<M/S)  &  OIR.  AT  SITE  2  FOR  HR 

1.500000  33C.0000 

WIND  SPO<M/S)  &  OIR.  AT  SITE  3  FOR  HR 

2.100000  300.0000 

NINO  SPO<M/S)  S  CIR.  AT  SITE  4  FOR  HR 

1.700000  310.0000 

GRADIENT  WIND  SPC.  (M/S)  &  OIR.  f 

S. 000000  10.CC0C0 

WIND  SPO(M/S)  «  CIR.  AT  SITE  1  FOR  HR 

1.000000  9C.C0000 

WIND  SPO(M/S)  &  CIR.  AT  SITE  2  FOR  MR 

1.000000  90.00000 

WIND  SPO(M/S)  &  OIR.  AT  SITE  3  FOR  HR 

1.00COOO  90.00000 

WIND  SPO(M/S)  &  CIR.  AT  SITE  4  FOR  HR 

1.000000  9C.0000C 

GRADIENT  wINO  SPO.  (M/S)  &  OIR.  f 

5.000000  135.0000 

FOR  HR  FROM  8  TO  9 

MIX  HT.  (M)  8  STAeiL.?”NEG.  MIX  HT  TC  STOP 
1700.000  ^ 

SOURCE  STRNGTH  (G/S)? 

1500.000 

WINO  SP0(M/S)  6  CIR.  AT  SITE  1  FOR  HR 

2.000000  3C0.0000 

WIND  SP0(M/S)  8  OIR.  AT  SITE  2  FOR  HR 

2.500000  O.OOOOOCOE^OO 

WIND  SP0(M/5)  8  OIR.  AT  SITE  3  FOR  HR 

3.100000  330.0000 

WIND  SPO(M/S)  8  OIR.  AT  SITE  4  FOR  HR 

2.700000  340.0000 

GRADIENT  WIND  SPO.  (M/S)  8  OIR.  f 

6.SOOOOC  40.00000 

FOR  HR  FROM  9  TO  10 

MIX  MT.  (M)  8  STABIL.?--NEG.  MIX  HT  TO  STOP 
-100.0000  3 


FOR  HR 


FOR  MR 


FOR  MR 
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INTERACTIVE  OUTPUTS  FOR  SAMPLE  PROBLEM  2 


hour  no. 


-7000.000 

-3000.000 

-60CC.000 

-5000.000 

-6000.000 

-4000.000 

-600C.000 

-3000.000 

-6000. 000 

-2000.000 

-6000.000 

-1000.000 

-6000.000 

C.OOOCOOOE*OC 

-50CC.000 

-6000-000 

-5000.000 

-5000.000 

-5000. 000 

-4000.000 

-5000.000 

-3000.000 

-5000.000 

-2000.000 

-5000.000 

-1000-000 

-5000.000 

0.00000008*00 

-4000.000 

-6000.000 

-4000.000 

-sooc.ooo 

-4000.000 

-4000.000 

-4O0C.000 

-3000.000 

-4000.000 

-2000.000 

-4000.000 

-1000.000 

-4000.000 

0.00000008*00 

-4000. 000 

1000.000 

-3000.000 

-7000.000 

-3000.000 

'6000.000 

-3000.000 

-5000.000 

-3000.000 

-4000.000 

-3000.000 

-3000.000 

-3000.000 

-2000,000 

-3000.000 

-1000.000 

-3000.000 

0.00000008*00 

-3O0C.00O 

1000.000 

-30CC.0QC 

2000.000 

-2000.000 

-7000.000 

-2000. 000 

-6000.000 

-2000.000 

-5000,000 

-2000.000 

-4000.000 

-2000.000 

-3000.000 

-200C.000 

-2000.000 

-2000.000 

-1000.000 

-2000.000 

0.00000008*00 

-2000.000 

1000.000 

-2OGC.0OO 

2000.000 

-1OOC.OO0 

-6000.000 

-1000.000 

-5000.000 

-1000.000 

-4000.000 

-1000.000 

-3000.000 

-100C.000 

-2000.000 

-1000.000 

-1000.000 

-1000.000 

c.oooooooE*oo 

-1000.000 

1000.000 

O.OOOOOOOE<^OC 

-6000.000 

o.occooooe+oc 

-5000.000 

0.00000008^00 

-4000.000 

0.00000008*00 

-3000.000 

1 .4041C55E-08 
5.1520832E-08 
2.5518435E-07 
5.1387fi09E-07 
4.4097987E-C7 
1 .2672C75E-07 
1.5517774E-08 

5. C939321E-08 
7.6661^048-07 
3.63046476-06 
8.1432C03E-C6 
7.8245639E-06 
3.3463C73E-06 

6. C919206E-07 
3.4446271E-C7 
4.1964154E-06 
2.3577797E-05 
5.4558688E-05 
6.6677319E-05 
5.7781825E-05 
2.2884255E-05 
1. 57199848-06 
2.3149786E-C8 
7.66616048-07 
9.38007728-06 
5.3583644E-05 
1.37147238-04 
2.29894188-04 
3.78884058-04 
4.327C690E-04 
6.5545C71E-05 
2.6286153E-07 
1.89534458-08 
6.27652248-07 
8.48744S5E-06 
4.4082473E-05 
1.18384308-04 
2.18847978-04 
3. 93351058-04 
1.14319558-03 
4.55022418-04 
1 .01365968-06 
2.3090C35E-07 
2.81294148-06 
1 .58947308-05 
3.8497C48E-05 
4.90933748-05 
4,61519968-05 
5.91506378-04 
2.47086938-04 
2.82752358-08 
3. 80690308-07 
2.1086141E-06 
4.13011188-06 
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O.OCCOOOOE^OC 

-2000.000 

4.2579782E-06 

O.OOCOOOOE-^OC 

-1000.000 

1.9503220E-06 

O.OOOOOOOE-»OC 

C.OOOOOOOE-»00 

2.4262669E-03 

1000.000 

-5000. 000 

2.0946e05E-08 

100C.OOO 

-4000.000 

1.0375C20E-07 

1000.000 

-3000.000 

2.0892720E-C7 

1000.000 

-2000.000 

1.7105516E-07 

100C.000 

-1000.000 

5.15208325-08 

HOUR  NO. 

1 

-100C0.00 

-10000.00 

5.57888605-07 

-10000.00 

-9000.000 

2.8156639E-06 

-100C0.0C 

-EOOC.OOO 

8.0341515E-06 

-100C0.00 

-7000.000 

1.2545313E-05 

-10000.00 

-6000. 000 

1. 56796815-05 

-10CC0.00 

-5000.000 

1.2036261E-05 

-10000.00 

-4000.000 

6.1953192E-06 

-100C0.00 

-2000.000 

1 .7575444E-06 

-10000.00 

-2000.000 

1 .8287656E-07 

-900C.000 

-10000.00 

2.0645C91E-06 

-9000.000 

-9000.000 

9. 49142675-06 

-9000.000 

-8000.000 

2.8234637E-05 

-9000. 000 

-7000.000 

5.6195249E-05 

-9000.000 

-6000.000 

7.7877237E-05 

-9000.000 

-5000.000 

8.3980260E-05 

-9000.000 

-4000.000 

6.5899490E-05 

-9000.000 

-3000.000 

2.5836225E-05 

-9000.000 

-2000.000 

3.3700903E-06 

-900C.000 

-1000.000 

1.1056100E-C7 

-8000.000 

-10000.00 

4.1697C40E-06 

-800C.000 

-9000.000 

1.9427493E-05 

-8000.000 

-8000. 000 

5.9357877E-05 

-300C.000 

-7000.000 

1.2692247E-C4 

-8000.000 

-6000.000 

2.1000027E-04 

-8000.000 

-5000.000 

3.08594466-04 

-8000.000 

-4000.000 

3.63494536-04 

-8000.000 

-2000.000 

1.92539136-04 

-8000.000 

-2000.000 

2.9846569E-05 

-3O0C.O00 

-1000.000 

9.96465595-07 

-7000.000 

-10000.00 

4.e198434E-06 

-7000. 000 

-9000.000 

2. 38511806-05 

-7000.000 

-eooc.ooo 

7.26737496-05 

-7000.000 

-7000.000 

1.51247446-04 

-7000.000 

-6000.000 

2.71675996-04 

-700C.000 

-5000.000 

4.86361 396-04 

-7000.000 

-4000.000 

8.25292436-04 

-7000.000 

-3000.000 

5.91638616-04 

-7000.000 

-200C.000 

9.01587346-05 

-7000.000 

-1000.000 

2.80705446-06 

-6000.000 

-100CC.00 

3.09268906-06 

-6000.000 

-9000.000 

1.59058846-05 

-6000.000 

-8000.000 

4. 85560746-05 

-6000.000 

-7000.000 

9.68056416-05 

-6000.000 

-6000.000 

1.63035286-04 

-6000.000 

-5000.000 

2.95718436-04 

-6000.000 

-4000.000 

9.42817956-04 

-6000.000 

-3000.000 

7.30766976-04 

-6000.000 

-2000.000 

8.71692546-05 

-6000.000 

-1000.000 

2.08553486-06 

-5000.000 

-10000.00 

1.24160356-06 

-500C.000 

-9000.000 

5.77707216-06 

-5000.000 

-8000.000 

1.71174918-05 

-5000. 000 

-7000.000 

3.15887086-05 

-5000.000 

-6000.000 

4.47299946-05 

-5000.000 

-5000.000 

1 .60493196-04 

-5000.000 

-4000.000 

2.34818116-03 

-5000.000 

-3000.000 

4.85787636-04 

-5000. 000 

-2000.000 

2.03078076-05 

-5000.000 

-1000.000 

3.1001C22E-G7 

-4000.000 

-10000.00 

2.50675476-07 

-4000.000 

-9000.000 

1.26763656-06 

-4000.000 

-8000.000 

3.63468676-06 

-4000.000 

-7000.000 

6.16862246-06 

-4000.000 

-6000.000 

7.20267746-06 

-4000.000 

-5000.000 

1 .04358946-03 

-4000.000 

-4000.000 

4.03921036-03 

-4000.000 

-2000.000 

6.83593246-05 

-4000.000 

-2000.000 

6.52044606-07 

-300C.000 

-10000.00 

3.29252326-06 

-3000.000 

-9000.000 

1.52042336-07 

-3000.000 

-8000. coo 

4.27581146-07 

-3000.000 

-700C.000 

6.80592966-07 

-3000.000 

-6000.000 

6.86830906-07 

-3000.000 

-500C.000 

2.83451706-03 

-3000.000 

-4000.000 

2.15783206-03 

-3000.000 

-3000.000 

1.27929696-08 

-2000.000 

-9000.000 

1.12927296-08 

-2000.000 

-8000.000 

3.06968216-08 

-2000.000 

-7000.000 

4.57942846-08 

-2000.000 

-6000.000 

4.14363656-08 

-2000.000 

-5000.000 

2.28151686-04 

-2000.000 

-4000.000 

7.22401456-03 

-2000.000 

-2000.000 

3.78948686-05 

-1000.000 

-400C.000 

6.12265586-05 

-tooc.ooo 

-2000.000 

5.85188536-03 

-1000.000 

-2000.000 

1  .62415066-04 

O.OOCOOOOE-^OC 

-1000.000 

1.05025856-05 
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